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INTRODUCTION 


The  objective  of  this  program  is  to  develop  an  understanding  of  the 
fluid  mechanics  and  heat  transfer  mechanisms  that  result  in  the  demon¬ 
strated  performance  of  the  spiral  fluted  tubing  under  development  at  GA 
Technologies  Inc.  -fGA^-^^Particularly  emphasized  are  the  processes  that 
result  in  the  augmentation  of  the  heat  transfer  coefficient  without  an 
increase  in  friction  coefficient  in  the  single-phase  flow.  Quantitative 
delineation  of  these  processes  would  allow  for  their  application  to  the 
optimal  solution  of  heat  transfer  problems  in  general  was  well  as  to 
tubular  heat  exchanges  using  spiral  fluted  tubes.-  — >  -  '  ' 

GA  has  been  developing  spiral  fluted  tubing  since  1978  to  improve 
the  performance  of  heat  exchanger  equipment  by  enhancing  the  heat  trans¬ 
fer  coefficient  and  extending  both  the  inner  and  the  outer  heat  transfer 
surfaces  of  the  tube.  The  fabrication  technique  of  rolling  flutes  on  a 
flat  strip  and  subsequently  welding  the  corregated  strip  to  form  spiral 
fluted  tubing  results  in  a  low  fabrication  cost  approximately  equal  to 
that  of  commercially  welded  plain  tubing. 

Measurements  of  the  heat  transfer  performance  in  single-phase  liquid 
flow  show  an  improvement  over  a  plain  tube  by  a  factor  of  3  on  the  out¬ 
side  and  a  factor  of  2.36  on  the  inside  of  a  spiral  fluted  tube  when  the 
area  extension  is  included.  The  improvement  in  evaporation  on  the  inside 
of  the  tube  is  shown  by  measurement  in  a  single  tube  to  be  a  factor 
between  2.4  and  3.2  relative  to  a  plain  tube,  and  the  improvement  in  con¬ 
densation  on  the  outside  of  a  spiral  fluted  tube  is  shown  by  measurement 
to  be  a  factor  between  2.8  and  5.6  relative  to  a  plain  tube.  In  both 
evaporation  and  condensation,  the  area  extension  is  included  and  the  heat 
transfer  enhancement  varies  with  heat  flux. 


This  Investigation  was  a  collaborative  effort  of  J.  C.  LaRue  of  the 
University  of  California  at  Irvine  (UCI),  B.  E.  Launder  of  the  University 
of  Manchester  Institute  of  Science  and  Technology  (UMIST) ,  P.  A.  Libby  of 
the  University  of  California  at  San  Diego  (UCSD),  and  J.  S.  Yampolsky  of 
GA.  The  experimental  phase  of  the  program  consisted  of  the  following: 

1.  Flow  visualization  studies  using  high-speed  photography  of  dye 
injected  into  water  flowing  in  a  cast  acrylic  spiral  fluted 
tube. 

2.  Time-resolved  axial  velocity  measurements  as  a  function  of 
radius  at  the  exit  plane  of  a  spiral  fluted  tube  with  water 
flowing  through  the  tube. 

3.  Simultaneous  time-resolved  measurement  of  the  axial  and  radial 
velocity  components  and  temperature  with  heated  air  flowing 
through  the  tube  cooled  by  a  water  jacket. 

[V 

There  were  two  approaches  pursued  in  the  theoretical  phase:  The  study 
done  at  UCSD  employed  a  Reynolds  stress/flux  description  of  the  turbulent 
flow  with  heat  transfer  in  a  smooth  tube  rotating  about  its  axis,  while 
the  study  at  UMIST  developed  the  methodology  for  performing  numerical 
studies  of  the  laminar  and  turbulent  flow  in  the  spiral  fluted  tube.  The 
effect  of  the  geometric  parameters  were  also  Investigated.  Sections  A 
through  D  of  this  report  each  cover  one  of  the  individual  studies 
separately. 
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OVERALL  PERFORMANCE  OF  SPIRAL  FLUTED  TUBING 


The  heat  transfer  performance  of  spiral  fluted  tubing  was  measured 
in  a  series  of  programs  sponsored  by  the  United  States  Department  of 
Energy  (Refs.  I  through  3).  These  are  summarized  below.  (Table  I  iden¬ 
tifies  the  nomenclature  used  in  the  discussion.) 

SINGLE-PHASE  FLOW 


Three  sets  of  data  were  developed  on  single-phase  water  flow  on  the 
inside  of  spiral  fluted  tubing  with  some  geometric  differences  in  the 
tubes  used  and  the  testing  methods.  The  details  of  both  are  given  in  the 

cited  references.  The  heat  transfer  performance  on  both  the  shell  side 

and  tube  side  of  spiral  fluted  tubing  as  measured  in  a  seven-tube  heat 
exchanger  with  water  (Ref.  2)  is  shown  in  Figs.  I  through  4.  The  Nusselt 
Modulus , 

h^hyd  /cyv £  *  ^  , 
k  k 

is  the  ordinate  and  the  Reynolds  Number, 

v<*hyd  , 
v 

is  the  abscissa.  The  Dittus-Boelter  smooth  tube  correlation  is  shown  for 
comparison.  The  heat  flow  is  radially  inward  in  Figs.  I  and  2  and  radi¬ 
ally  outward  in  Figs.  3  and  4.  These  data  indicate  that  the  direction  of 

heat  flow  has  no  effect  on  the  amount  of  enhancement  within  the  accuracy 
of  the  data,  and  that  the  enhancement  on  the  outside  of  the  tube  is 
greater  than  that  on  the  inside  of  the  tube  by  a  factor  of  2.28  compared 
with  a  factor  of  1.59  as  compared  with  a  plain  tube  for  heat  flowing 
radially  Inward  and  a  factor  of  2.35  compared  to  a  factor  of  1.63  as 


TABLE  1 
NOMENCLATURE 


Nusselt  modulus 
Nusselc  number 
Conductance  coefficient 

Hydraulic  diameter 

Thermal  conductivity 

Reynolds  number 

Mean  axial  fluid  velocity 

Kinematic  viscosity 

Flux  parameter 

Flux 

Mechanical  equivalent  of  heat 
Flute  height 
Prandtl  number 

Specific  heat  at  constant  pressure 
Absolute  viscosity 
Dittu8-Boelter  correlation 


NU/Pr0.4 


Nu  -  hdhyd/k 
h  (Btu/hr-ft2-°F) 


dhyd 


4  x  cross  section  area  (ft) 


wetted  perimeter 
k  (Btu/hr-°F-ft) 


Re  *  vdhyd/v 
v  (ft/sec) 
v  (ft2/sec) 


»  (Btu/hr-ft2) 

J  (ft-lb/Btu) 
e  (ft) 

Pr  *  cpp/k 
Cp  Btu/lb-*F 
u  (lb/ft-sec) 

Nu/Pr0>4  -  0.022  Re0-8 


Friction  factor  (Moody) 

Pressure  drop 
Density 

Gravitational  constant 
Tube  length 


l/dhyd  Pv2/2g 
Ap  (lb/ft2) 

P  (lb/ft2) 
g  (ft/sec2) 
l  (ft) 
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Shell  side  NU-REY  correlation 


compared  with  a  plain  tube  for  heat  flowing  radially  outward.  These 
enhancement  factors  do  not  include  the  area  extension  by  a  factor  of  1.4 
on  the  outside  and  a  factor  of  1.6  on  the  inside  that  the  flutes  provide 
over  that  of  a  plain  tube  with  the  same  cross-sectional  area.  Since  the 
enhancement  factor  is  essentially  the  same  when  the  direction  of  heat  is 
reversed  (Refs.  1  and  3)  (Figs.  2  and  4)  the  enhancement  is  not  flux 
dependent. 

Previous  measurements  (Refs.  1  and  4)  of  spiral  fluted  tubing  showed 
a  dependency  of  the  enhancement  factor  for  large  values  of  heat  flux. 
These  data  are  shown  in  Fig.  5.  The  present  results  are  in  agreement 
with  curve  2  of  Fig.  5,  the  Reilly  tests  in  which  the  enhancement  ratio 
was  1.59  to  1.64.  Curves  3  and  4,  the  HTRI  low-flux  and  high-flux  tests, 
indicate  enhancement  factors  of  1.86  and  2.34  respectively.  The  minimum 
enhancement  factor,  the  HTRI  tests  with  the  heat  flux  reversed,  is  shown 
by  curve  1  to  be  1.22,  which  is  less  than  the  1.63  factor  shown  in 
Fig.  4.  The  geometric  difference  between  the  tubes’  geometry  might  pro¬ 
vide  an  explanation  for  the  improved  minimum  enhancement  of  Fig.  4  as 
compared  with  curve  1  of  Fig.  5.  The  ratio  of  flute  height  to  a  diameter 
equivalent  to  the  cross-sectional  area  was  0.0465  in.  for  the  tube  used 
in  the  HTRI  tests  and  0.0566  in.  for  the  tubes  in  the  seven-tube  heat 
exchanger  tests.  This  increase  of  the  flute  height  ratio  in  excess  of 
20%  would  increase  the  secondary  flow  within  the  flute.  As  will  be  seen 
later  from  the  UMIST  work,  this  secondary  flow  is  the  mechanism  that 
accounts  for  the  enhancement  observed  in  spiral  fluted  tubing  by  trans¬ 
porting  the  laminar  sublayer  away  from  the  wall. 

A  purely  empirical  approach  to  a  heat  flux  parameter  is  proposed  to 
compare  the  data.  As  there  were  variations  in  the  tube  dimensions,  heat 
flux,  and  Reynolds  number  for  each  of  the  data  sets,  the  nondimens ional 
heat  flux  parameter  suggested  is 


V*  has  a  mean  value  of  4  x  10®  for  the  high-flux  HTRI  test  data  (curve  4 
of  Fig.  5),  1.91  x  10®  for  the  low-flux  HTRI  test  data  (curve  3  of 
Fig.  5),  0.416  x  10®  for  the  Reilly  test  data  (curve  2  of  Fig.  5), 

0.403  x  10®  for  one  of  the  data  sets  in  the  seven-tube  bundle  (Fig.  2), 
and  0.393  x  10®  for  another  of  the  seven-tube  data  sets  (Fig.  2).  The 
heat  flux  parameter  has  essentially  the  same  value  for  the  Reilly  test 
data  as  for  the  seven-tube  test  data,  as  does  the  enhancement  factor  in 
both  of  these  cases.  The  increase  of  the  enhancement  factor  with 
increasing  values  of  this  flux  parameter  indicates  that  a  threshold  of 
heat  flux  exists  below  which  the  enhancement  factor  is  constant.  This  is 
seen  in  the  same  value  for  the  enhancement  factor  when  the  heat  flow  is 
reversed. 

A  separate  series  of  measurements  was  made  to  determine  the  friction 
coefficient  for  the  same  tube  as  that  used  in  the  seven-tube  tests 
(Ref.  2).  The  results  shown  in  Fig.  6  indicate  that  the  isothermal  fric¬ 
tion  coefficient  for  both  air  and  water  are  the  same  as  for  a  smooth  tube 
within  the  error  band  of  the  measurements. 

BOILING 

The  boiling  performance  of  a  fluorocarbon  on  the  inside  of  a  verti¬ 
cal  spiral  fluted  tube  as  a  function  of  boiling  heat  flux  is  shown  in 
Fig.  7.  The  spiral  fluted  tube  shows  a  boiling  coefficient  enhancement 
factor  range  of  1.5  to  2.0  as  compared  with  that  calculated  for  a  plain 
tube  exclusive  of  area  extension.  The  boiling  coefficient  per  foot  of 
the  spiral  fluted  tube  is  increased  by  a  factor  of  2.4  to  3.2  relative  to 
a  plain  tube  if  the  area  extension  of  1.6  is  included.  These  data  are 
for  the  overall  boiling  coefficient.  Subcooled  liquid  entered  the  tube, 
and  saturated  or  almost  saturated  vapor  exited. 

CONDENSING 

The  measured  condensing  heat  transfer  coefficient  on  the  outside  of 
a  vertical  spiral  fluted  tube  is  compared  with  that  of  a  smooth  tube  in 


fluted  tube  friction  factor  comparisons 


fluted  tube  evaporator  test 


Fig.  8  for  a  fluorocarbon.  The  spiral  fluted  tube  shows  a  condensing 
coefficient  enhancement  factor  range  of  2  to  3.8  as  compared  with  a  plain 
tube,  exclusive  of  area  extension.  The  condensing  coefficient  per  foot 
of  tube  is  increased  by  a  factor  of  2.8  to  5.6  relative  to  a  smooth  tube 
if  the  area  extension  of  1.4  is  included. 

RESEARCH  PROGRAM 

The  objective  of  this  research  program  is  to  determine  the  fluid 
mechanics  of  the  flow  in  spiral  fluted  tubes  that  results  in  the  enhance¬ 
ment  of  the  heat  transfer  coefficient  without  an  accompanying  increase  in 
the  frictional  coefficient.  Overall  heat  transfer  measurements,  dis¬ 
cussed  earlier  in  this  report,  show  that  the  heat  transfer  coefficient  in 
single-phase  liquid  flow  is  increased  by  a  factor  of  1.6  on  the  inside  of 
the  spiral  fluted  tube  compared  with  a  plain  tube,  while  the  friction 
coefficient  is  essentially  the  same  as  that  of  a  plain  tube.  Measure¬ 
ments  have  also  shown  that  beyond  a  high  threshold  value  of  heat  flux, 
the  degree  of  enhancement  increases  with  further  increases  of  heat  flux 
when  the  direction  of  the  heat  flow  is  radially  inward.  The  work  was  a 
collaborative  effort  among  four  Institutions.  Each  effort  is  reported 
separately  in  individual  sections  of  this  report.  The  principal  find¬ 
ings  as  they  pertain  to  the  objectives  are  reviewed  and  discussed  in  the 
next  section.  Program  Results. 
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PROGRAM  RESULTS 
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THEORETICAL  PROGRAM 

The  program  at  UMIST  under  the  direction  of  B.  E.  Launder  Is  docu¬ 
mented  in  the  Ph.D.  thesis  of  Anna  Barba,  and  is  reproduced  in  Section  D 
of  this  report.  A  brief  summary  of  the  results  follows,  using  figures 
from  that  work. 

The  flow  is  analyzed  over  a  sector  of  the  tube  cross  section  having 
as  boundaries  a  single  flute  at  the  outer  surface  (the  tube  wall)  and  an 
arc  at  a  finite  radius  at  the  inner  surface,  with  radii  forming  the  side 
surfaces.  The  orthogonal  coordinate  lines  5  and  n  map  the  solution 
domain  shown  in  Fig.  9.  The  tube  wall  coincides  with  a  line  of  constant 
n  but  the  undulation  of  the  constant-n  lines  decreases  with  radius  until 
the  lines  become  cylindrical.  The  constant-5  lines  are  orthogonal  to  the 
constant-n  lines  and  are  radial  at  the  crest  and  through  positions.  A 
third  coordinate,  5,  is  in  the  axial  direction  and  follows  the  spiralling 
of  the  flutes.  The  turbulence  models  and  the  domain  of  their  application 
are  shown  in  Fig.  10.  Near  the  wall,  in  the  vicinity  of  the  flutes,  a 
mixing  length  hypothesis  including  established  viscous-damping  effects 
was  used.  A  k  ~  e  Boussinesq  turbulence  model  was  used  between  the 
flutes  and  the  cylindrical  polar  grid  where  a  simplified  algebraic  stress 
model  was  employed. 

The  calculated  velocity  field  (u  +  v)  is  shown  in  Fig.  11(a)  for  the 
spiral  fluted  tube  geometry  used  in  the  seven-tube  bundle  tests,  except 
that  In  the  actual  flutes  the  flute  helix  is  counterclockwise  while  it  is 
clockwise  in  the  calculated  flutes.  A  secondary  flow  can  be  seen  in  the 
flute  region.  This  results  from  the  flow  through  the  tube  encountering 
the  flute  spiralling  clockwise  around  the  tube.  This  flow  creates  a 
region  of  high  pressure  on  the  leading  face  of  the  flute,  which  forces 
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hypothesis 

model 


Fig.  10.  Regions  of  application  of  the  turbulence  models 


adjacent  fluid  clockwise  and  away  from  the  wall  and  creates  a 
low-pressure  region  on  the  trailing  face  of  the  flute.  The  angular 
momentum  of  the  secondary  flow  in  the  flutes  induces  the  rotation  of  the 
core  flow.  The  rotation  of  the  core  flow  was  observed  in  the  flow 
visualization. 

The  secondary  flow  can  be  directly  seen  in  Fig.  11(b),  which  shows 
the  velocity  field  in  the  flutes  relative  to  the  rotating  core  flow.  The 
solid  body  rotation  is  subtracted  from  the  vector  field  a(u  +  v)  -  u>R. 
This  shows  the  flow  seen  by  an  observer  rotating  with  the  core  flow.  The 
velocity  field  relative  to  the  flute  spiral  is  given  by  (VnQ  +  vr),  which 
is  shown  in  Fig.  11(c).  This  is  what  is  seen  by  an  observer  on  the  flute 
spiralling  around  the  tube.  The  counterclockwise  vectors  indicate  that 
the  fluid  in  the  tube  lags  the  rotation  rate  of  the  flutes.  This  view 
demonstrates  how  the  spiral  fluted  tube  promotes  a  flow  in  the  fluid 
adjacent  to  the  wall  and  offers  an  explanation  for  the  observed  enhance¬ 
ment  of  heat  transfer  coefficient,  since  the  principal  resistance  to  heat 
transfer  is  in  the  various  sublayers  at  the  wall. 

The  comparison  of  the  measured  with  predicted  mean  velocity,  the 
mean  axial  fluctuation,  the  turbulent  kinetic  energy,  and  the  azimuthal 
velocity  as  a  function  of  radius  in  the  spiral  fluted  tube  will  be  dis¬ 
cussed  in  the  next  section.  Figure  12  shows  the  predicted  Nusselt  number 
as  a  function  of  Reynolds  number  on  the  data  set  of  the  heat  transfer 
Measurements  previously  used  to  show  the  effect  of  heat  flux.  The  cal¬ 
culated  values  should  be  compared  with  the  data  of  curve  2  (previously 
pointed  out  to  be  essentially  the  same  as  the  seven-tube  data  which  are 
free  from  the  effect  of  heat  flux).  The  predicted  values  are  too  high  by 
a  factor  of  2.  The  friction  coefficient  prediction  shown  in  Fig.  13  is 
also  too  high  by  about  the  same  factor. 

Calculations  were  also  made  with  a  simplified  algebraic  stress  model 
closure  in  the  core  region  to  investigate  the  effect  of  flux  on  the  heat 
transfer  enhancement.  This  showed  no  buoyancy  effect. 


EXPERIMENTAL  PROGRAM 


The  experimental  program  was  under  the  direction  of  J.  C.  La  Rue 
with  the  collaboration  of  J.  S.  Yampolsky.  The  work  was  started  at  UCSD 
but  was  shifted  to  UCI.  The  flow  visualization  studies  were  part  of  this 
work.  Two  experimental  test  rigs  were  constructed,  one  for  water  and  one 
for  air.  Hot  wires  were  used  for  measurements  in  air  and  hot  films  for 
the  water  measurements.  Considerable  difficulty  was  encountered  with  the 
durability  of  the  hot  film  probes  in  the  water  measurements.  The  mea- 
surements  were  made  in  the  exit  plane  from  a  spirally  fluted  tube,  8  ft 
long  in  the  case  of  water  and  12  ft  long  for  air,  with  the  last  4  ft 
cooled  by  a  water  jacket.  A  two-element  x-probe  with  a  resistance  tem¬ 
perature  cold  wire  was  used  for  the  air  flow  experiment,  which  gave  both 
vector  velocity  and  temperature  data.  A  single  element  probe  was  used  to 
develop  axial  velocity  data  in  the  water  experiment.  The  details  of  the 
work  and  the  data  developed  are  given  in  the  final  report  from  UCI, 
Included  in  this  report,  which  was  the  masters  thesis  of  D.  S.  Babikian. 

A  comparison  of  some  of  these  results  with  the  results  of  the  theoretical 
work  at  UMIST  follow. 

The  comparison  of  the  mean  axial  velocity  relative  to  the  centerline 
velocity  as  a  function  of  radius  is  shown  in  Fig.  14  for  air  and  Fig.  15 
for  water  as  measured  in  these  experiments,  predicted  in  the  theoretical 
calculations,  and  measured  in  a  smooth  tube  by  other  experimenters.  The 
predictions  are  in  close  agreement  with  the  experiment,  but  the  velocity 
gradient  is  less  severe  when  compared  with  experiments  in  plain  tubes  by 
the  others.  This  indicates  that  the  flow  in  a  spiral  fluted  tube  has 
less  shear,  as  would  occur  at  a  reduced  Reynolds  number  (laminarlzation). 
Probably  this  is  the  effect  of  the  rotational  nature  of  the  flow. 

The  turbulent  kinetic  energy  as  a  function  of  radius  is  shown  in 
Fig.  16.  The  agreement  is  extremely  good  when  the  turbulent  transport 
near  the  wall  in  the  flutes  was  suppressed,  but  the  predictions  were  high 
without  this  arbitrary  correction. 
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Turbulent  kinetic  energy  as  a  function  of  radius  in  air 


Figure  17  shows  that  the  prediction  of  the  rotational  flow  was  con¬ 
siderably  higher  than  that  measured.  Since  these  measurements  were  done 
in  air  where  the  heat  transfer  enhancement  of  spiral  fluted  tubes  is  min¬ 
imal,  caution  should  be  exercised  as  to  any  conclusions  drawn.  However, 
it  does  appear  that  the  calculations  overpredict  the  flow  rotation. 
Moreover,  the  measurements  do  not  show  any  rotation  in  the  center  of  the 
tube,  which  may  indicate  that  the  core  flow  is  not  in  the  solid  body 
rotation  that  was  assumed  in  the  calculation. 

CONCLUSIONS 

The  physical  mechanism  that  results  in  the  enhancement  of  heat 
transfer  without  an  Increase  of  friction  appears  to  be  the  secondary  flow 
Induced  in  the  flutes  by  their  helical  curvature.  This  secondary  flow 
efficiently  transports  the  low  momentum  fluid  at  the  wall  into  the  flow 
stream,  where  turbulent  transport  is  very  high  relative  to  the  molecular 
transport  at  the  wall.  As  the  principal  resistance  to  heat  transfer  is 
the  laminar  sublayer  at  the  wall,  its  transport  into  the  stream,  where 
turbulent  processes  prevail,  without  an  increase  in  the  rate  of  shear 
results  in  the  enhancement  of  heat  transfer  without  an  accompanying 
increase  in  friction.  The  evidence  for  the  secondary  flow  is  inductive 
on  the  basis  of  the  physical  measurements  and  flow  visualization  and 
direct  on  the  basis  of  the  theoretical  calculations.  The  flow  visualiza¬ 
tion  and  hot  wire  measurements  show  that  the  flow  internal  to  the  flutes 
in  the  core  is  rotating,  which  implies  the  presence  of  angular  momentum, 
the  source  of  which  can  only  be  within  the  flutes.  Hence  there  is  rota¬ 
tion  in  the  flutes,  a  secondary  flow.  The  theoretical  calculations 
directly  show  and  identify  this  secondary  flow.  However,  these  calcula¬ 
tions  overpredict  both  the  heat  transfer  enhancement  and  the  friction  in 
the  spiral  fluted  tube.  This  result  may  be  attributed  to  the  simplicity 
of  the  turbulence  models  used,  which  was  necessitated  by  the  numerical 
difficulties  imposed  by  the  geometry  of  the  spiral  fluted  tube. 
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RECOMMENDATION  FOR  FURTHER  WORK 


There  are  three  areas  that  might  be  considered  fruitful  for  addi¬ 
tional  investigation.  These  are  the  experimental,  theoretical,  and  over¬ 
all  heat  transfer  categories.  In  the  experimental  area,  it  would  be  use¬ 
ful  to  make  detailed  vector  velocity  and  pressure  drop  measurements  in 
the  laminar  flow  regime,  as  well  as  in  the  turbulent  regime,  for  liquids 
with  different  Prandtl  numbers.  This  investigation  should  (1)  determine 
the  details  of  the  flow  within  the  flutes  (secondary  flow),  (2)  investi¬ 
gate  the  question  of  the  length  required  for  fully  developed  flow  within 
the  tube  or  if  fully  developed  flow  is  not  established,  and  (3)  measure 
the  velocity  and  temperature  field  with  heat  transfer.  Improvement  of 
the  theoretical  calculation  requires  the  development  of  more  complex  mod¬ 
els,  particularly  in  the  flute  area.  This  in  turn  will  require  consider¬ 
able  improvement  in  the  numerical  methodology.  In  fact,  the  latter  is 
necessary  for  any  progress  in  improving  the  modeling.  The  last  area  to 
investigate  is  the  overall  heat  transfer  coefficient  dependency  on  heat 
flux  to  empirically  determine  the  correlation. 


SECTION  A 

FLOW  VISUALIZATION  STUDIES 


The  flow  visualization  studies  that  were  initiated  in  Ref.  1  were 
continued  until  satisfactory  high-speed  motion  pictures  were  obtained. 
This  required  the  use  of  a  high-speed  xenon  flash  for  individual  frame 
flash  synchronization.  The  equipment  was  supplied  and  set  up  by 
Professor  A.  Ellis  of  UCSD. 

The  water  tunnel  shown  in  Fig.  1  was  used  for  the  flow  visualization 
studies  with  an  8-ft-long  transparent  test  section.  The  test  section  is 
an  acrylic  casting  with  a  square  outer  cross  section  and  a  spiral  fluted 
internal  cross  section  forming  the  flow  passage.  Its  construction  was 
described  previously  (Ref.  1).  The  photographs  were  taken  from  the  side 
of  the  test  section  and  through  a  transparent  plate  at  the  end  of  the 
water  tunnel  with  illumination  from  the  upstream  plenum  section  and 
transversely  across  the  test  section.  Colored  dye  (red  and  green)  was 
injected  at  opposite  sides  of  the  test  section  2  ft  upstream  from  the 
discharge.  The  motion  pictures,  taken  at  2000  frames/sec  with  observa¬ 
tion  by  projection  at  24  frames/sec,  allowed  viewing  the  flow  slowed  down 
by  a  factor  of  80.  Study  of  the  movies  clearly  showed  the  rotational 
nature  of  the  flow;  a  complete  revolution  was  completed  in  approximately 
two  pitch  lengths.  However,  the  resolution  was  insufficient  to  reveal 
details  of  the  flow  within  the  flutes. 

Figure  2  is  a  sequence  of  frames  enlarged  from  the  16-ram  motion  pic¬ 
ture  of  the  end  view.  Frame  1  was  taken  prior  to  the  dye  injection.  At 

the  right  can  be  seen  the  injection  needle,  which  also  indicates  the  par¬ 
allax.  The  second  frame  20  ms  later  shows  the  emergence  at  the  right  of 

the  red  dye,  which  lags  the  green  dye  injected  at  the  left,  showing 

almost  30  deg  of  rotation.  The  flow  is  seen  progressively  in  each  of  the 
frames  to  continue  to  rotate  to  frame  8,  taken  0.180  sec  after  dye 
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injection  began.  The  diffusion  of  the  flow  radially  inward  is  seen  by 
the  reduction  of  the  diameter  of  the  circle  from  the  upstream  light.  As 
the  flow  progresses  downstream  toward  the  camera,  the  image  of  the  dye  is 
out  of  focus.  As  was  mentioned  earlier,  the  tube  is  8  ft  long,  the  dye 
was  injected  6  ft  from  the  entrance  to  the  tube,  and  the  camera  was 
positioned  5  ft  from  the  injection  point.  The  parallax  should  be  noted 
in  the  earlier  sequences  (frames  1-4).  The  parallax  and  the  opacity  of 
the  dye  and  the  flutes  limit  the  information  that  can  be  derived  from  the 
flow  close  to  the  wall. 

Figure  3  is  a  sequence  of  frames  enlarged  from  the  16-mm  motion  pic¬ 
tures  taken  from  the  side  of  the  tube  with  the  light  from  the  far  side  of 
the  test  section.  The  flutes  on  the  near  side  are  visible  as  a  result  of 
the  refraction  of  the  light.  The  red  dye  is  injected  on  the  viewer's 
side  and  the  green  dye  180  deg  opposite.  Frame  1  was  taken  at  the 
instant  of  injection  and  frame  2  was  taken  20  msecs  later,  and  the  dark 
spot  in  the  center  is  the  red  dye.  Both  the  red  and  green  dye  are  visi¬ 
ble  in  frame  3,  and  the  rotation  can  be  inferred  by  the  green  dye  being 
displaced  upward  and  the  red  dye  downward,  which  is  consistent  with  the 
left-handed  spiral  of  the  flutes.  The  green  dye  marks  the  far-side 
flutes,  which  can  be  observed  as  lines  orthogonal  with  the  near-side 
flutes.  The  progression  of  the  flow  around  the  tube  can  be  seen  in  the 
succeeding  frames,  and  in  frames  six  and  seven  the  orthogonal  lines  on 
the  red  dye  are  observed,  indicating  that  the  red  dye  is  now  on  the  far 
side  of  the  tube.  The  time  when  the  flow  has  turned  90  deg  can  be  seen 
from  frame  6  in  Fig.  2  to  be  approximately  60  ms  and  180  deg  from  Fig.  3, 
frame  7.  The  Reynolds  number  was  approximately  20,000.  These  flow  vis¬ 
ualization  photographs  and  the  motion  pictures  clearly  show  that  the  flow 
in  the  spiral  fluted  tube  is  rotational,  close  to  solid  body  rotation  but 
at  a  rate  less  than  the  helix  angle  of  the  flutes. 
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Figure  7  Mean  axial  velocity  normalized  by  the  centerline  velocity 
for  the  water  flow:  crest  to  centerline,  ;  valley  to 
centerline,  ;  smooth  tube  data  of  Laufer  (1953),  ; 

smooth  tube  data  of  Schildknecht ,  Miller,  Meier  (1979),  ; 

smooth  tube  data  of  Sandborn  (1955),  ;  fluted  tube  data 

of  Silberraan  (1980), 
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17  Power  law  dependence  of  normalized  mean  axial  velocity  for 
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Figure  20  Mean  azimuthal  velocity  normalized  by  the  centerline 

velocity  for  the  air  flow:  crest  to  centerline,  ;  valley 
to  centerline, 


Figure  21  Mean  azimuthal  velocity  normalized  by  the  friction  velocity 
for  the  air  flow.  (Same  symbols  as  Figure  20). 


Figure  22  Mean  flow  angle  normalized  by  the  flute  angle:  crest 

data,  ;  valley  data,  ;  fluted  tube  data  of  Silberman 
(1980):  crest  data  at  top  of  pipe,  ;  valley  data  at  top 
of  pipe,  ;  crest  data  at  bottom  of  pipe,  ;  valley  data 
at  bottom  of  pipe. 


Figure  23  Relative  rotation  rate:  crest  data,  ;  valley  data. 


Figure  2U  Root  mean  square  axial  velocity  normalized  by  the  mean 
centerline  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  25  Root  mean  square  radial  velocity  normalized  by  the  mean 
centerline  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  26  Root  mean  square  azimuthal  velocity  normalized  by  the  mean 
centerline  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  27  Root  mean  square  axial  velocity  normalized  by  the  local 
mean  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 
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Figure  28  Root  mean  square  radial  velocity  normalized  by  the  local 
mean  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  29  Root  mean  square  azimuthal  velocity  normalized  by  the  local 
mean  velocity  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  30  Turbulent  kinetic  energy  normalized  by  the  friction 

velocity  for  the  air  flow.  (Same  symbols  as  Figure  7). 


Figure  31  Correlation  coefficients  for  the  air  flow.  Top  set  of  data 
corresponds  to  Ruv  while  the  lower  set  of  data  corresponds 
to  R^.  (Same  symbols  as  Figure  7  but  with  the  addition  of 
Bremhorst  and  Bullock,  (1973),  ). 


Figure  32  Correlation  of  axial  and  radial  velocity  normalized  by  the 
friction  velocity  squared  for  the  air  flow.  (Same  symbols 
as  Figure  7). 


Figure  33  Correlation  of  axial  and  azimuthal  velocity  normalized  by 
the  friction  velocity  squared  for  the  air  flow.  (Same 
symbols  as  Figure  7). 


Figure  34  Correlation  of  axial  and  radial  velocity  normalized  by  the 
turbulent  kinetic  energy  for  the  air  flow.  (Same  symbols 
as  Figure  7). 


Figure  35  Mean  temperature  profile  for  the  air  flow.  Valley,  top 

half  of  tube,  ;  valley,  lower  half  of  tube,  ;  crest,  top 
half  of  tube,  ;  crest,  lower  half  of  tube,  ;  Bremhorst 
and  Bullock,  (1973),  top  half  of  tube,  ;  Bremhorst  and 
Bullock,  (1973),  lower  half  of  tube, 


Figure  36  Root  mean  square  temperature  normalized  by  the  difference 
between  mean  centerline  and  wall  temperature  for  the  air 
flow.  (Same  symbols  as  Figure  36). 


Figure  37  Correlation  coefficients  for  velocity  and  temperature  for 
the  air  flow:  R  ,  crest,  ;  R  ,  valley,  ; 

Rva*  crest»  valley,  ;UR  ,  crest 

Rwg,  valley,  ;Rvg,  Bremhorst  ana  Bullock  (1973), 


Figure  38  Correlation  of  radial  velocity  and  temperature  normalized 
by  the  difference  between  mean  centerline  and  wall 
temperatures  for  the  air  flow.  (Same  symbols  as 
Figure  36). 


Figure  39  Mean  velocity  gradient  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  40  Mean  temperature  gradient  for  the  air  flow.  (Same  symbols 
as  Figure  7). 


Figure  41  Mixing  length  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  42  Richardson  number  for  the  air  flow.  (Same  symbols  as 
Figure  7). 


Figure  43  "Constant",  8,  required  for  mixing  length  correction. 
(Same  symbols  as  Figure  7). 


Figure  44  Eddy  diffusivity  for  momentum  for  the  air  flow.  (Same 
symbols  as  Figure  7). 


Figure  45  Eddy  diffusivity  for  heat  for  the  air  flow.  (Same  symbols 
as  Figure  7). 


Turbulent  Flow  In  a 


Spirally  Fluted  Tube 


ABSTRACT 

Tubes  with  spiral  flutes  at  the  wall  have  been  shown  to  lead  to 
augmentation  of  the  heat  transfer  rate  relative  to  smooth  tubes  at  the 
same  Reynolds  numbers.  Clearly  it  is  of  both  fundamental  and  applied 
interest  to  determine  the  characteristics  of  the  flow  field  that  lead 
to  the  augmentation  of  the  heat  transfer  rate.  The  statistical 
characteristics  of  the  velocity  field  of  air  and  water  flows  and  in 
addition  the  characteristics  of  the  temperature  field  in  the  air  flow 
in  a  spiral  fluted  tube  are  determined.  These  results  show  for  the 
air  flow  that  the  radial  transport  of  heat  is  increased  throughout  the 
flow  field  by  about  30%  relative  to  the  corresponding  quantity  in  a 
smooth  tube.  This  increase  in  the  radial  component  of  the  heat  flux 
is  not  accompanied  by  an  increase  in  the  turbulence  level.  For 
example,  the  intensity  of  the  axial  velocity  fluctuations  for  both  the 
water  and  air  flows  in  the  fluted  tube  are  nearly  the  same  as  that  in 
the  smooth  tube.  Near  the  wall,  for  both  the  water  and  air  flows,  the 
mean  velocity  and  its  gradient  are  reduced  relative  to  the 
corresponding  smooth  tube  values.  The  reduced  velocity  gradient  is 
consistent  with  a  reduced  shear  stress.  This  reduction  in  shear 
stress  is  offset  by  the  increased  surface  area  of  the  spiral  fluted 


Cube  so  Chat  Che  pressure  gradienC  and  fricCion  facCor  are  nearly 
equal  Co  Che  corresponding  smooch  cube  values.  For  Che  waCer  flow, 
measuremencs  ac  Che  wall  of  che  incenslcy  of  Che  axial  velocicy 
indicate  Che  presence  of  a  secondary  flow  wlch  a  characCerlsClc  lengch 
corresponding  Co  Che  fluCe  spacing.  This  secondary  flow  increases  Che 
Cransfer  of  fluid  from  Che  wall  and  Chus  is  in  large  pare  responsible 
for  Che  augmencacion  in  heac  cransfer. 


1.  INTRODUCTION 


A  fundamental  goal  of  heat  exchanger  design  is  the  reduction  in 
size  of  the  heat  exchanger  so  as  to  accomplish  a  desired  amount  of 
energy  transfer  with  a  minimum  capital  cost  in  as  small  volume  as 
possible.  One  method  used  to  meet  this  goal  (cf.  Kays  and  London 
1964)  has  been  to  increase  both  the  turbulence  level  and  the  area  for 
heat  transfer  per  unit  length  by  the  addition  of  fins.  Associated 
with  this  method  is  an  increase  in  the  power  used  to  pump  the  fluid 
through  the  heat  exchanger  due  to  increased  fluid  friction  and 
pressure  drop. 

Tubes  with  swirling  flows  produced  by  tangential  injection, 
twisted  tape,  wall  slots  and  spiral  flutes  have  also  been  found  to 
lead  to  increased  heat  transfer  rates  (cf.  Carnavos,  (1974),  and  Webb, 
(1981),  for  recent  comprehensive  reviews).  For  most  of  the  tubes  with 
swirling  flows,  there  is  also  an  increase  in  pressure  drop.  However, 
one  tube  developed  by  Yampolsky  (1979)  which  uses  a  relatively  large 
number  of  spiral  flutes  (30)  on  the  surface  of  the  tube  to  produce  the 
swirling  motion  has  been  shown  by  Reilly  (1978)  and  Yampolsky  (1979) 
to  lead  to  an  augmentation  of  the  heat  transfer  ratio  by  a  factor  of 
two  or  three  without  an  increase  in  the  pressure  drop  (cf.  Yampolsky 
and  Pavlics  (1983)).  It  is  the  goal  of  the  research  reported  herein 
to  determine  experimentally  the  statistical  properties  of  air  and 
water  flows  in  the  spiral  fluted  tube  developed  by  Yampolsky  (1979)  so 
as  to  gain  a  physical  insight  into  the  properties  of  the  flow  field 
that  lead  to  the  augmentation  in  heat  transfer  with  no  increase  in 
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pressure  drop  relative  to  that  in  a  smooth  tube  at  the  same  Reynolds 
number  we  next  review  some  related  studies  of  the  swirling  flows. 

Since  there  are  extensive  reviews  of  heat  transfer  in  swirling 
flows  presented  by  Carnavos  (1974)  and  Webb  (1981),  a  brief  review  of 
only  the  previous  studies  that  are  directly  related  to  the  present 
study  is  discussed.  Swirling  flows  in  tubes  for  the  augmentation  of 
heat  transfer  rates  have  been  produced  using  a  number  of  different 
generating  mechanisms,  for  example.  Hay  and  West  (1975)  produce  a 
swirling  or  spiral  motion  by  tangentially  injecting  heated  air  into  a 
tube  through  a  single  slot  at  an  angle  of  90,  60,  or  30°.  A 
disadvantage  associated  with  tangential  injection  Is  that  the 
tangential  velocity  decays  with  distance.  Iquraentsev  and  Nuzmeev 
(1978)  overcome  this  difficulty  through  the  use  of  a  spirally  coiled 
wire  placed  at  the  wall  of  a  smooth  tube.  Palen,  Chan,  and  Taborek 
(1971)  present  one  among  a  number  of  studies  of  heat  transfer  in 
swirling  flows  produced  by  flutes  on  the  tube  wall.  In  that 
particular  study,  there  are  only  four  flutes  equally  spaced  around  the 
cirumference  of  a  tube  which  has  a  mean  radius  of  1.23  cm.  The 
relative  flute  height  is  about  0.4  of  the  mean  radius  while  the  pitch 
to  diameter  ratio  is  about  2.25. 

Carnavos  also  reports  heat  transfer  studies  of  Blumenkrantz  and 
Taborek  (1970)  who  studied  the  heat  transfer  augmentation  associated 
with  multi-fluted  tubes  similar  to  that  used  in  the  studies  of  Palen, 
Chan  and  Taborek  and  reports  that  the  maximum  heat  transfer 
augmentation  (along  with  the  highest  pressure  drop  relative  to  a 
smooth  tube  at  the  same  flow  conditions)  occurs  for  a  tube  with  three 
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flutes  which  each  have  a  height  to  radius  ratio  of  0.2  and  a  lead  to 
diameter  ratio  of  4.25. 

In  all  the  studies  cited  above,  heat  transfer  rates  are  increased 
by  factors  of  at  least  2  or  3  relative  to  the  heat  transfer  rates  in 
smooth  tubes  at  corresponding  Reynolds  numbers.  However,  concommitant 
with  the  increased  heat  transfer  rates  obtained  in  those  studies  is  an 
increase  in  the  pressure  drop  and  friction  factor.  This  increase  in 
heat  transfer  rate  and  pressure  drop  in  spiral-fluted  tubes  that  are 
reviewed  by  Carnavos  lead  him  to  speculate  that  the  increase  in  heat 
transfer  rate  and  pressure  drop  must  be  due  to  an  increase  in  the 
turbulence  level. 

The  increase  in  the  pressure  drop  for  the  multi-fluted  tube 
studies  reviewed  by  Carnavos  is  perplexing  since  a  reduction  in 
pressure  drop  has  been  found  in  tube  flows  with  swirl  where  the 
swirling  motion  is  produced  by  rotation  of  the  tube  about  its 
logltudinal  axis  (cf.  White,  (1964),  Cannon  and  Kays  (1969),  Murakami 
et  al.  (1970)  and  Singh  et  al.  (1980)).  In  addition  Silberman  (1970), 
(1972)  and  (1980),  reports  that  swirling  flows  produced  by  means  of 
spiral  flutes  on  the  tube  surface  also  show  a  reduction  in  pressure 
drop  relative  to  that  corresponding  to  the  flow  in  a  smooth  tube  at 
the  same  Reynolds  number.  The  flute  spacing  for  the  tube  used  by 
Silberman  is  much  less  than  that  for  the  tubes  studied  by  Palen,  Chan, 


and  Taborek  (1974) 


More  recently  a  tube  with  spiral  flutes  on  the  inner  and  outer 
surface  has  been  developed  by  Yampolsky  (1979)  which  leads  to  an 
augmentation  in  the  heat  tranfer  rate  of  a  factor  of  two  or  three 
without  a  concommitant  Increase  in  the  pressure  drop  (cf.  Reilley 
(1978),  Yampolsky  (1979)  and  Yampolsky  and  Pavlics  (1983).  One 
possible  reason  for  the  difference  in  the  relative  pressure  drop  is 
related  to  the  number  and  geometry  of  the  flutes  which  differ 
significantly  from  the  type  discussed  by  Palen,  Chan  and  Taborek 
(1971)  and  Carnavos  (1974).  For  example,  Yampolsky' s  tube  has  30 
flutes  compared  to  the  3  or  4  of  the  aforementioned  studies  with  a 
lead  to  diameter  ratio  of  3.43  compared  to  2.23.  In  contrast  to  the 
speculation  of  Carnavos,  it  would  seen  that  the  Increase  in  heat 
transfer  rates  in  the  Yampolsky  tube  may  not  be  due  to  increased 
levels  of  turbulence  but  may  be  due  to  the  production  of  a  secondary 
flow  near  the  tube  wall. 

It  is  Interesting  to  note  that  no  detailed  studies  of  the  flow 
field  have  been  performed  for  flows  in  spiral  multi-fluted  tubes  which 
exhibit  increased  heat  transfer  rates.  This  dearth  of  data  provided 
the  motivation  for  the  present  study  which  has  as  its  principal  focus 
the  determination  of  the  statistical  properties  of  the  flow  of  water 
and  air  in  the  Yampolsky  tube.  The  goal  of  the  work  is  to  gain  a 
better  understanding  of  the  properties  of  the  flow  field  that  lead  to 
the  augmentation  of  heat  transfer  rate  without  an  increase  in  pressure 
drop  and  friction  factor.  For  the  water  flow  which  is  isothermal, 
results  are  based  on  single  hot  film  measurements  of  the  time  resolved 
axial  velocity.  For  the  air  flow,  which  is  heated,  measurements  are 


based  on  Che  simultaneous  measurement  of  the  time  resolved  axial  and 


azimuthal  velocity  and  temperature  and  the  simultaneous  time  resolved 
axial  and  radial  velocity  and  temperature. 

For  the  water  flow,  statistical  quantities  such  as  the  mean  and 

intensity  of  the  axial  velocity  are  presented  as  a  function  of 

distance  from  both  the  valley  and  crest  of  the  spiral  flutes  for  a 

Reynolds  number  of  8720  based  on  the  mean  velocity  and  hydraulic 

diameter.  For  the  air  flow,  the  mean  and  intensities  of  the  axial, 

azimuthal  and  radial  velocities,  the  Reynolds  stress  and  the  axial, 

azimuthal  and  radial  heat  fluxes  are  presented  for  a  Reynolds  number 
4 

of  2.64  x  10  based  on  the  mean  velocity  and  the  hydraulic  diameter. 
Again  measurements  are  made  as  a  function  of  distance  from  the  flute 
valley  nd  flute  crest. 

Statistical  quantities  of  interest  obtained  in  the  spiral  fluted 
tube  are  compared  to  corresponding  quanitities  obtained  in  turbulent, 
non-swirling  flows  in  the  smooth  tube  studies  of  Laufer  (1953), 
Sandborn  (1955),  and  Schildknecht  et  al.  (1979).  Comparisons  are  also 
made  to  the  corresponding  statistical  properties  of  the  flow  field 
reported  by  Silberraan  (1980)  in  a  spiral  multi-fluted  tube.  The  tube 
studied  by  Silberman  is  not  used  in  processes  involving  heat  transfer 
but  is  used  in  the  transport  of  sand-water  slurries  and  thus  the  heat 
transfer  properties  associated  with  the  tube  are  not  known. 

The  flute  geometry  of  the  Silberman  tube  is  similar  to  the 
Yampolsky  tube  only  in  that  Che  number  of  flutes  is  relatively  large 
(10  as  compared  to  30)  and  that  the  pitch  to  diameter  ratio  is 
identical  and  equal  to  0.181.  Other  geometrical  properties  as 


5 


indicated  in  Table  I  are  significantly  different  and  thus  differences 
in  the  results  are  expected  though  qualitative  features  of  the  flow 
are  expected  to  be  similar.  We  next  consider  the  details  of  the 
experiment  and  of  the  flows. 


2.  ARRANGEMENTS  AND  TECHNIQUES  OF  THE  EXPERIMENT 

Turbulence  measurements  are  obtained  in  both  a  water  and  an  air 
flow  facility.  In  this  section  we  describe  the  two  flow  facilities, 
the  test  section,  the  associated  calibration  facilities,  the  sensors, 
instrumentation,  and  the  data  processing  and  analysis  facilities. 

2.1  Water  Flow  Facility 

The  water  flow  facility  is  a  closed  system  and  is  operated  in  an 
isothermal  mode.  The  facility  is  shown  schematically  in  Figure  1  and 
consists  basically  of  a  1  HP  Gould  pump  with  a  plastic  impeller,  a 
filter  to  remove  particles  in  the  flow  that  might  lead  to  surface 
contamination  of  the  sensor,  a  damping  tank,  two  sets  of  honeycomb 
flow  straighteners,  the  test  section,  probe  traverse  and  holder,  a 
receiving  tank  and  a  return  line.  The  flow  rate  was  varied  by  means 
of  the  by-pass  and  the  main  flow  valves. 

In  order  to  obtain  a  reasonably  stable  calibration  of  the  hot 
film  sensor  used  to  measure  the  time  resolved  velocity,  the  water  in 
the  water  flow  facility  is  first  passed  through  a  mixed  bed  deionizer 
to  reduce  the  quantity  of  dissolved  minerals  in  the  water  to  less  than 
10  ppm  of  total  dissolved  solids.  A  pH  of  seven  for  the  water  is 
generally  maintained  for  all  the  experiments  to  prevent  rapid 
dissolution  of  the  quartz  coasting  on  the  sensor. 

The  velocity  and  mean  temperature  sensors  are  mounted  on  a  manual 
probe  traverse  that  controls  the  radial  motion  of  the  sensor.  The 
traverse  has  a  resolution  of  ±  0.125  mm  and  consists  of  a  scale  and 
vernier  which  are  mounted  on  the  outside  of  the  receiving  tank.  A 
round  support  shaft  1.2  cm  in  diameter,  attached  to  a  slider  on  the 


fixed  part  of  the  traverse  which  also  holds  the  vernier  passes  through 
a  water  tight  fitting  into  the  receiving  tank.  A  small  air  foil 
shaped  probe  holder  which  holds  the  temperature  and  velocity  sensors 
is  attached  to  the  end  of  the  probe  support  shaft  on  the  inside  of  the 
receiving  tank.  The  velocity  and  temperature  sensors  are  mounted  on 
probe  shafts  of  respectively  0.5  and  0.625  cm  diameter,  which  are  held 
horizontally  in  the  airfoil  shaped  probe  holder.  The  temperature  and 
velocity  sensors  are  both  placed  about  20  cm  upstream  of  the  support 
shaft  and  0.5  mm  downstream  of  the  exit  plane  of  the  test  section. 
Radial  profiles  starting  from  either  the  valley  or  crest  of  the  sprial 
fluted  tube  are  accomplished  by  rotating  the  fluted  tube  which  formed 
the  test  section  so  that  either  a  flute  valley  or  a  flute  crest  is 
aligned  with  the  radius  along  which  the  probe  is  traversed. 

2.2  Test  Section  and  Coordinate  System 

A  portion  of  the  2.4  m  long  test  section  showing  end  and  side 
views  of  the  spiral  multi-fluted  aluminum  tube  is  shown  in  Figure  2. 

As  indicated  on  Figure  3,  the  mean  radius  of  the  tube,  R,  is  measured 
from  the  centerline  to  a  position  midway  between  the  crest  and 
valley.  The  radial  coordinate,  r  has  its  origin  at  the  centerline. 

The  flute  height  is  1.5  mm  and  the  flute  spacing  is  2.53  mm.  There 
are  30  flutes  equally  spaced  around  the  tube  circumference  each  at  an 
angle  of  30°  relative  to  the  tube  axis  which  corresponds  to  a  lead  to 
diameter  ratio,  l^/ D,  of  5.43  where  the  lead,  2,^,  is  the  distance  in 
the  downstream  direction  that  corresponds  to  one  complete  rotation  of 
a  flute.  Other  details  of  the  fluted  tube  used  in  the  present  study 
are  presented  in  Table  l.  Also,  since  comparisons  are  made  to  the 


corresponding  results  of  Silberman  (1980)  the  geometrical  properties 
of  the  tube  used  by  Silberman  are  also  presented. 

The  inlet  to  the  test  section  consists  of  an  abrupt  contraction 
while  the  exit  of  the  test  section,  which  extends  7.5  cm  into  the 
receiving  tank,  consists  of  an  abrupt  expansion. 

Table  1 

Geometrical  Parameters  of  Fluted  Tubes 


Parameter 

Yampolsky 

(water  flow) 

Yampolsky 

(air  flow) 

Silberman  ' 

mean  diameter  (cm) 

2.80 

2.80 

30.48 

hydraulic  diameter  (cm) 

1.59 

1.59 

25.67 

number  of  flutes 

30 

30 

10 

flow  area  (cm  ) 

5.52 

5.52 

— 

flute  height/radlus 

0.120 

0.120 

0.073 

flute  spacing/radius 

0.181 

0.181 

0.314 

pitch/diameter 

0.181 

0.181 

0.181 

lead/diameter 

5.43 

5.43 

01.81 

helix  angle 

30° 

30° 

60° 

length/diameter 

85.71 

142.86 

63 

length/hydraulic  diameter 

151 

251.57 

74.80 

length/lead 

15.78 

26.32 

34.81 

2.3  Water  Calibration  Facility 

Figure  4  shows  the  calibration  tunnel  which  consists  basically  of 

% 

a  pump,  a  filter  to  remove  solids,  a  flow  rate  adjusting  valve,  a  by- 
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pass  valve,  a  honeycomb  flow  straightener ,  a  reservoir  tank,  a 
constant  head  tank,  a  receiving  tank  and  an  axisymetric  nozzle  with  a 
smooth  transition  from  an  upstream  diameter  of  7.6  cm  to  a  downstream 
diameter  of  2.54  cm.  The  velocity  at  the  exit  plane  of  the  nozzle  is 
laminar  and  is  controlled  by  means  of  the  by-pass  and  flow-rate 
adjusting  valves  through  the  range  of  0.2  to  1.7  m/sec.  The  velocity 
at  the  exit  plane  of  the  nozzle  is  obtained  by  means  of  a  water 
manometer  and  two  pressure  taps  -  one  mounted  at  the  nozzle  throat  and 
the  other  mounted  in  the  plenum.  The  water  used  in  the  calibration 
facility  is  deionized  water  with  a  PH  of  around  seven. 

2.4  Water  Sensors 

The  time  resolved  velocity  is  measured  by  means  of  a  TSI  1210- 
10 AW  hot  film  sensor  and  associated  constant  temperature  anemometer. 
The  sensor  which  has  a  diameter  of  0.025  am,  a  length  of  0.254  mm  and 
is  operated  at  an  overheat  ratio  of  1.055,  is  calibrated  in  the  range 
of  velocity  from  0.24  to  1.50  m/sec  and  over  a  temperature  range  of 
about  22  to  26 °C.  The  calibration  is  performed  in  the  laminar  jet  of 
the  water  calibration  facility  both  before  and  after  data  collection. 

A  modified  form  of  the  Kings  law  correlation  is  found  to  describe  the 
relationship  between  bridge  voltage  squared  and  velocity  and 
temperature  where  the  modification  is  to  the  exponent,  n,  of  the 
velocity  term  as  given  in  the  following  equation  (see  Appendix  A  for 
more  details  of  the  calibration  procedure): 

Eb2 

-  A  +  BU"  (1) 

f  “  w 
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where 


E^  Is  Che  bridge  voltage 
Tf  is  Che  temperaCure  of  Che  hot  film 
Tw  is  the  Cemperature  of  the  water 
U  is  the  velocity 
n  is  the  exponent 

and  A  and  B  are  the  calibration  constants  which  are  determined  by 

the  method  of  least  squares. 

Values  of  the  exponent,  n,  in  Eqn.  1  for  hot  film  sensors  are 
found  to  be  in  the  range  of  0.35  to  0.55  (cf.,  Jorgenson  (1970), 
Andreas  (1978),  Gourdon  et  al.  (1980),  Giovonangeli  (1980),  and  Adrian 
et  al.  (1984)).  For  the  work  reported  herein,  a  value  for  the 
exponent  of  0.38  is  found  to  minimize  the  standard  deviation  of  the 
difference  between  the  measured  velocity  and  that  calculated  using 
Eqn.  1. 

Low  overheats  and  hence  low  values  of  (Tj-Tw)  in  Eqn.  1  are 
necessary  to  prevent  the  formation  of  bubbles  on  the  surface  of  the 
sensor.  This  small  temperature  difference  leads  to  relatively  large 
sensitivity  changes  in  the  mean  water  temperature  which  naturally 
arise  from  frictional  effects  during  the  course  of  data  collection. 

For  example,  for  the  present  experiment  a  change  in  the  water 
temperature  of  about  1.2°C/hr  is  not  uncommon.  At  a  true  velocity  of 
70  cm/sec  this  temperature  change,  if  not  accounted  for,  would  lead  to 
an  error  of  about  15%  in  the  mean  velocity.  Thus,  a  temperature 
calibration  is  required.  (Details  of  the  temperature  calibration 
procedure  can  be  found  in  Appendix  B).  Since  the  temperature 
variation  of  the  water  during  data  collection  at  a  particular  position 


0.01 °C,  a  constant  correction  for  the  mean  temperature  is  applied  to 
all  the  data  collected  at  a  particular  position.  The  mean  temperature 
is  determined  by  means  of  a  MINCO  platinum  resistance  thermometer 
which  is  mounted  near  the  hot  film  sensor. 

2.5  Signal  Processing  for  Water  Data 

A  block  diagram  of  the  signal-processing  electronics  is  shown  in 
Figure  5.  The  voltage  from  the  constant  temperature  anemometer  is 
passed  through  a  buck  and  gain  amplifier  where  the  mean  voltage  is 
subtracted  and  the  fluctuations  are  amplified  so  as  to  correspond  to 
the  dynamic  range  of  the  analog  FM  instrumentation  tape  recorder.  The 
signal  corresponding  to  the  time  resolved  velocity  is  recorded  at  a 
tape  speed  of  19.05  cm/sec  which  corresponds  to  a  frequency  response 
of  2.5  KHz.  After  data  collection  is  completed,  the  signals  are 
played  back  at  a  tape  speed  of  19.05  cm/sec,  low  passed  filtered  at  2 
KHz,  digitized  at  a  sample  rate  of  4096  samples/sec  using  a  Tustin 
analog  to  digital  converter  with  14  bit  resolution  and  then  stored  on 
digital  magnetic  tape  for  later  processing.  The  data  are  analyzed  by 
means  of  a  LSI  11/23  and  Sky  MNK  array  processor  using  standard 
software. 

2.6  Air  Flow  Facility 

The  air  flow  test  facility  is  shown  in  Figure  6.  Filtered 
laboratory  air  is  used  as  the  test  fluid  and  supplied  at  a  steady  flow 
rate  by  means  of  a  centrifugal  air  compressor  which  is  equipped  with  a 
by-pass  valve.  The  air,  which  is  heated  to  about  30°C  above  ambient 
by  the  air  compressor,  next  passes  through  a  set  of  flow  straighteners 
located  in  a  5.1  cm  diameter  pipe  that  is  just  upstream  of  the  4  m 


long  test  section.  The  test  section  used  in  the  air  experiments  is 
from  the  same  batch  of  tubing  as  used  in  the  water  experiment  and  a 
description  of  the  geometrical  properties  of  the  tube  is  presented  in 
Table  1.  The  downstream  2.4  m  of  the  test  section  is  surrounded  by  a 
second  tube  of  7  cm  diameter  through  which  water  flows  so  as  to 
provide  a  constant  wall  temperature  of  approximately  38.4°C  along  the 
downstream  2.4  m  of  the  test  section.  The  velocity  and  temperature 
sensors  are  placed  0.5  mm  downstream  of  the  exit  plane  of  the  test 
section  and  are  mounted  on  a  traverse  which  has  a  position  resolution 
of  ±  0.254  mm. 

2.7  Sensors  and  Calibration  for  Air  Experiment 

The  probe  used  for  the  air  measurements  consists  of  three  sensors 
-  two  hot  wires  which  form  an  *'x"  configuration  and  one  cold  wire 
which  is  mounted  normal  to  the  plane  of  the  "x”  array  and  placed  0.6 
mm  upstream  of  the  center  of  "x”  array.  This  configuration,  with  a 
suitable  calibration,  permits  the  simultaneous  time  resolved 
measurement  of  the  temperature  and  the  axial  velocity  and,  depending 
on  the  orientation  of  the  ”x”  array  (either  vertical  or  horizontal)  in 
addition,  either  the  radial  or  the  azimuthal  velocity  respectively. 

The  two  hot  wires  which  are  operated  in  the  constant  temperature 
mode  and  which  are  spaced  0.5  mm  apart  consist  of  platinum  plated 
tungsten  wire,  1.25  mm  in  length  and  3.8  u  in  diameter.  The  cold  wire 
consists  of  a  1.0  mm  long  0.625  u  diameter  platinum  wire  which  is 
operated  in  an  A.C.  Wheatstone  bridge  at  a  current  of  180  tia.  Thus, 
the  probe  has  a  spatial  resolution  of  about  1.25  mm.  Based  on  the 
work  of  LaRue  et  al.  (1981),  at  the  centerline  velocity  of  about  40 


m/s,  the  cold  wire  should  have  a  frequency  response  of  around  8  KHz 
and  the  velocity  sensitivity  should  be  negligible.  The  frequency 
response  of  the  hot  wire  sensors,  based  on  the  square  wave  test,  is 
greater  than  30  KHz. 

The  triple  sensor  probe  is  directly  calibrated  both  before  and 
after  the  experiment  as  a  function  of  temperature,  velocity  and  flow 
angle  in  a  laminar,  temperature-controlled  calibration  jet. 

Calibration  ranges  for  velocity,  temperature,  and  flow  angle  are 
respectively  2  to  55  m/sec,  20  to  708C  and  -30°  to  +30°. 

The  calibration  equation  for  the  cold  wire  is  linear  and  is  given 
by  the  following  equation 


cw 


A  +  B  T 
cw  cw  a 


(2) 


where  Ecw  is  the  cold  wire  bridge  voltage 
Ta  is  the  air  temperature  and 
Acw  and  Bcw  are  the  calibration  constants. 

The  calibration  data  are  determined  by  measuring  the  cold  wire 
bridge  voltage,  Ecw,  at  various  air  temperatures  and  applying  the 
method  of  least  squares  to  the  calibration  pairs  to  determine  the 
calibration  constants,  Acw  and  Bcw- 

An  appropriate  equation  relating  the  hot  wire  bridge  voltage  to 
the  velocity,  flow  angle  and  temperature  is 

g  2 

-  At  +  BtU  n[cos 2(  <$Q  t  ±  *)  *  k2  sin2(*o  t  ±  $))n/2  (3) 
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Efa  £  is  the  bridge  voltage 
T„  .  Is  the  temperature  of  the  hot  wire 
Ta  is  the  temperature  of  the  air 
U  is  the  velocity 

n  is  the  exponent 

k  is  the  tangential  cooling  coefficient 

♦  is  the  angle  between  the  velocity  and  the  probe  axis 

$  .  is  the  angle  between  the  normal  to  the  wire  and  the  hot 

o,i 

wire  sensor 

(♦  ,  ±  *)  is  the  angle  between  the  flow  vector  and  the  hot 

0,1 

wire , 

A^  and  B^  are  the  calibration  constants  for  sensor  i. 
and  the  subscript  l  refers  to  a  particular  sensor. 

The  exponent  n  is  chosen  to  be  0.5  and  the  calibration  constants 
and  Bt  are  determined  by  the  method  of  least  squares.  The 
temperature  of  the  hot  wire,  Tw  ^  is  determined  directly  by  holding 
the  angle  and  velocity  fixed  and  varying  the  temperature  of  the 
calibration  air  supply.  Under  these  conditions,  as  discussed  in  more 
detail  in  Appendix  B,  the  bridge  voltage  is  a  linear  function  of  the 
air  temperature  and  the  wire  temperature  can  be  determined  in  a 
straight-forward  manner.  Once  the  two  sets  of  calibration  constants 
have  been  determined,  the  calibration  equation  corresponding  to  each 


sensor  can  be  inverted  so  that  the  flow  angle,  #,  and  velocity,  U,  can 
be  determined.  Details  of  the  inversion  can  be  found  in  Appendix  C, 
while  the  inversion  equations  are  shown  in  Eqns.  4  and  5.  (The 


subscripts  1,  and  2  refer  to  each  of  the  sensors.) 


.  ,  D(k  2  +  1)  -  (k  2  +  1) 
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2.8  Signal  Processing  for  Air  Experiments 
A  block  diagram  of  the  signal  processing  used  during  data 
collection  for  the  air  flow  studies  is  similar  to  that  shown  in  Figure 
5  for  the  water  experiments.  The  voltages  from  the  sensor  electronics 
(the  two  constant  temperature  anemometers  and  the  A.C.  Wheatstone 
bridge)  are  passed  through  calibrated  buck  and  gain  amplifier  which 
removes  the  mean  voltage  and  amplifies  the  fluctuating  portion  of  the 
signal  so  as  to  correspond  to  the  dynamic  range  of  the  FM 
instrumentation  tape  recorder.  The  tape  speed  is  96.2  cm/sec  which 
corresponds  to  a  frequency  response  of  10  KHz.  The  recorded  signals 
are  played  back  at  the  same  tape  speed,  low  pass  filtered  at  5  kHz  and 
digitized  at  a  sample  rate  of  10240  samples/sec  by  means  of  a  14  bit 
Tustin  analogue  to  digital  converter  which  is  equipped  with 
simultaneous  sample  and  hold  circuits.  The  data  triplets  correspond¬ 
ing  to  30  sec  of  data  (307200  digitized  data  triplets)  are  stored  on 


digital  magnetic  tape  and  analyzed  using  an  LSI  11/23  computer 
equipped  with  a  Sky  MNK  array  processor  and  standard  software. 

2.9  Data  Collection  Procedure 

Data  are  collected  along  a  line  starting  at  either  a  flute  valley 
or  crest.  In  the  case  of  the  water  experiments,  that  line  corresponds 
to  a  radius  and  passes  through  the  centerline  of  the  tube.  In  the 
water  experiments,  due  to  the  flute  spacing  the  traverse  will  start  at 
a  flute  valley  and  end  at  a  flute  crest.  The  spacing  between  data 
collection  positions  is  r/R  *  0.04  for  0  <  r/R  <  0.48  and  is  reduced 
to  r/R  ■  0.02  for  r/R  >  0.48. 

For  the  air  experiments,  data  are  collected  at  positions  starting 
at  either  the  top  of  a  flute  crest  or  bottom  of  a  flute  valley  and 
extending  to  the  flute  valley  or  crest  on  the  opposite  side  of  the 
tube  that  is  most  nearly  diametrically  opposite  the  starting 
position.  This  type  of  traverse  permits  an  assessment  of  the  flow 
symmetry  but  because  of  the  flute  spacing  the  line  along  which  data 
are  collected  does  not  pass  through  the  centerline  of  the  tube  but 
Instead  is  displaced  from  the  centerline  by  r/R  =  0.025.  Data  are 
collected  for  45  sec  at  each  position  and  collection  positions  are 
separated  by  r/R  ■  0.1. 

The  fluid  dynamic  parameters  of  the  present  study  along  with  the 
corresponding  parameters  for  the  comparison  experiments  are  presented 


in  Table  2 


Table  2 


Fluid  Dynamic  Parameters 


Parameter/  Water  Air  Laufer  Sandborn  Schildknecht 

Source _ Flow  Flow  (  1953)  (  1955)  et  al  (1979) 

Diameter, 

d  (cm)  2.80  2.80  2. 94  10.16  5.00 

Hydraulic 

Diameter, 

dh  (cm)  1.59  1.59  2.94  10.1  5.0 

Centerline 

Velocity, 


UQ  (ra/s)  0.669 

38.82 

30.48 

8.81 

6.32 

Mean  or  Bulk 

Velocity 

Um  (m/sec)  0.495 

29.76 

27.33 

7.90 

6.18 

Reynolds  number 

Based  on  Mean 

Velocity,  , 

4 

A 

4 

i 

ReUo  1.18x10 

3.44x10 

5.0x10 

5.0x10 

1.77x10 

Reynolds  number 

Based  on  Mean 

Velocity,  _ 

A 

A 

4 

Re^  8.72xl0J 

2.64x10 

4.49x10 

4.48x10 

1.72x10' 

Friction 

Factor, 

f1  0.0315 

0.0247 

0.021 

0.021 

0.018 

Wall  Frictional 

Velocity, 
u*  (m/sec)  3.14 

1.654 

1.40 

0.40 

0.29 

■ 


Silberman 

(1980) 

30.48 

25.67 

40.47 

30.41 

5.8xl05 

4.36xl05 

0.05 

1.70 


1.  For  the  water  and  air  flow  for  the  present  experiment,  cf.  Yampolsky  and 
Pavlics  (1983).  (Appendix  D). 


18 


3.  RESULTS  AND  DISCUSSION 

The  velocity  characteristics  for  the  flow  of  water  and  air  in  the 
spiral  multi-fluted  tube  are  presented  in  this  section.  The 
temperature  characteristic  and  heat  fluxes  are  also  presented  for  the 
air  flow  case.  In  general  for  both  flows  data  are  collected  on  two 
radii  -  one  starting  at  a  flute  crest  (called  hereafter  crest  data) 
and  extending  past  the  center  of  the  tube  with  the  other  starting  at  a 
flute  valley  (called  hereafter  valley  data)  and  extending  past  the 
center  of  the  tube. 

Data  obtained  in  the  present  experiment  are  compared  to  the 
corresponding  data  obtained  in  the  smooth  tube  studies  of  Laufer, 
Sandborn,  and  Schildknecht  et  al.  and  to  the  corresponding  quantities 
obtained  by  Silberman  (1980)  in  a  spiral  fluted  tube.  However,  it 
should  be  recalled  that  the  geometrical  characteristics  of  the  tube 
used  in  the  Silberman  experiments  are  different  from  those  of  the  tube 
used  in  the  present  experiment  and  the  length  to  diameter  ratio  at  the 
measuring  station  is  considerably  less  in  the  Silberman  study  than  in 
the  present  one  though  the  lead  to  diameter  ratio  is  about  twice  that 
of  the  present  study.  Thus,  differences  are  to  be  expected,  for 
example  in  the  Silberman  tube,  the  axial  velocity  profile  may  not  be 
fully  developed  though  the  azimuthal  profile  may  be  more  nearly  fully 
developed  than  in  the  present  study. 

The  temperature  and  heat  flux  characteristics,  for  the  air  flow, 
are  compared  to  the  corresponding  smooth  tube  results  of  Bremhorst  and 
Bullock,  (1970)  and  (1973).  Apparently,  no  corresponding  measurements 


of  temperature  and  turbulent  heat  flux  have  been  made  in  a  fluted 
tube. 

We  begin  by  first  considering  the  results  for  the  water  flow  and 
subsequently  consider  the  results  for  the  air  flow.  The  first  results 
considered  pertain  to  the  mean  velocity  components  and  intensities. 
For  the  air  flow,  the  Reynolds  stresses  are  next  presented.  This  is 
followed  by  a  discussion  of  the  mean  temperature,  temperature 
Intensity  and  heat  flux  for  the  air  flow,  and  then  by  a  discussion  of 
the  mixing  length,  eddy  dif fusivities  and  turbulent  Prandtl  number. 

3.1  Mean  Velocity  for  Water  Flow 

The  mean  axial  velocity  for  the  water  experiments  which 
correspond  to  a  Reynolds  number  of  1.18  x  10^  (based  on  centerline 
velocity)  are  presented  in  Figures  7  and  8  along  with  the  smooth  tube 
data  of  Laufer,  Sandborn,  and  Schildknecht  et  al.  which  correspond  to 
Reynolds  numbers  of  50,000  for  the  first  two  references  and  17,700  for 
the  latter.  In  the  spiral  fluted  tube,  the  normalized  mean  axial 
velocity  is  reduced  relative  to  that  in  the  smooth  tube.  For  example, 
for  the  crest  and  valley  data,  the  reduction  near  the  wall  at  (1-r/R) 

<  0.2  is  in  excess  of  10  and  20Z  respectively.  It  should  be  noted 
that  for  the  smooth  tube,  the  variation  in  Reynolds  number  from  the 
17,700  of  Schildknecht  et  al.  to  the  50,000  of  Laufer  has  a  negligible 
effect  on  the  normalized  mean  axial  velocity.  Therefore,  it  seems 
reasonable  to  conclude  that  the  relative  reduction  in  normalized  mean 
axial  velocity  is  not  due  to  a  Reynolds  number  effect  but  is  due  to 
the  swirl  induced  by  the  flutes. 


An  alternate  way  of  quantifying  the  effect  of  swirl  on  the 
normalized  mean  velocity  is  by  comparison  of  the  value  of  the  exponent 
in  the  power  law  description  of  the  mean  velocity  profile  which  is 
given  as: 


U  n  r 

(§->  -  (I  -  t>  (6) 

o 

Figure  9  shows  that  the  assumption  of  a  power  law  variation  is 
supported  by  the  data.  With  respect  to  the  value  of  the  exponent  for 
flow  in  a  smooth  tube,  Schlichting  (1979)  reports  that,  based  on  the 
work  of  Nikuradse,  report  a  value  of  n  *  6.0  for  Re  *  4  x  10^.  Also, 
the  exponent  is  found  to  increase  with  increasing  Reynolds  number. 

The  exponent  for  the  crest  data  is  found  to  be  3.1  while  that  for  the 
valley  data  is  found  to  be  4.1.  These  results  are  consistent  with  the 
observation  that  the  effect  of  swirl  is  to  lead  to  a  mean  velocity 
profile,  which  appears  to  correspond  to  a  flow  Reynolds  number  lower 
than  the  actual  one. 

At  very  high  Reynolds  numbers,  as  discussed  by  Schlichting,  the 
mean  velocity  distribution  should  be  described  by  a  universal 
functional  form  which  must  contain  the  logrithm  of  the  independent 
variable.  The  universal  velocity  distribution  law  for  large  Reynolds 


numbers  has  the  form 


Consistent  with  that  velocity  distribution  law,  the  velocity  defect 
when  plotted  versus  (1  -  r/R)  on  semi-logrithmic  paper  should 
correspond  to  a  straight  line.  Data  plotted  in  this  manner  are 
presented  on  Figure  10  for  the  present  data,  the  smooth  tube  of 
Laufer,  and  the  fluted  tube  of  Silberman  (1980).  The  straight  line  on 
that  figure  corresponds  to  the  universal  logrithmic  distribution  where 
the  coefficients,  A  and  B  in  Eqn.  7  which  are  determined  by  the  method 
of  least  squares  are  listed  in  Table  3. 

The  coefficients  differ,  but  the  form  of  the  curves  are  similar 
with  the  exception  of  the  Silberman  data  which  exhibits  an  abrupt 
change  in  slope  at  ( 1  -  |)  ~  0. 24.  It  should  be  remembered  that  the 
length  to  diameter  ratio  for  the  Silberman  experiments  is  only  about 
75  while  that  for  the  Laufer  and  present  experiments  is  greater  than 
100.  Thus,  the  flow  studied  by  Silberman  may  not  be  fully  developed 
with  respect  to  the  axial  mean  velocity  profile. 


Table  3 

Coefficients  in  Universal  Velocity  Distribution  for 
Water  Flow  and  Comparison  Studies 


Data  Set/Coefficient 

A 

B 

Crest  Data  (water) 

-  5.00 

-  0.20 

Valley  Data  (water) 

-  3.14 

+  1.19 

Smooth  Tube  (Laufer) 

2.86 

-  0.08 

Fluted  Tube  (Silberman) 


2.21 


+  3.88 


We  next  consider  the  mean  velocity  profile  near  the  solid  surface 
and  in  particular,  the  slope  there  which  is  used  to  compute  the  wall 
shear  stress.  The  normalized  mean  velocity  plotted  as  a  function  of 
distance  from  the  nearest  solid  surface  is  shown  in  Figure  11.  The 
origin  for  the  horizontal  axis  corresponds  to  the  solid  surface  in 
contrast  to  the  origin  of  Figures  7-10  which  corresponds  for  the 
fluted  tube  to  the  radius  midway  between  the  crest  and  the  valley.  It 
is  clear  in  this  figure  as  it  is  in  Figures  7  and  8  that  the 
normalized  mean  velocity  is  much  less  than  the  corresponding  mean 
velocity  in  the  smooth  tube.  For  example  at  y/R  =  0.1,  where  y  is  the 
distance  from  the  nearest  solid  surface,  the  mean  velocity  correspond¬ 
ing  to  the  crest  and  the  valley  data  are  reduced  respectively  14%  and 
28%  relative  to  the  mean  velocity  in  the  smooth  tube.  The  velocity 
gradient  near  the  wall  is  also  less  than  in  the  smooth  tube  case.  The 
mean  gradient  at  the  wall,  which  is  determined  by  fitting  a  third 
order  polynominal  to  the  profile  near  the  wall  (and  including  the  zero 
velocity  point  at  the  wall),  can  be  used  to  estimate  the  friction 
factor  (cf.  Appendix  E).  The  major  assumptions  used  in  this 
computation  are  that  the  viscosity  at  the  wall  is  the  molecular 
viscosity  and  that  the  shear  stress  calculated  at  the  crest  and  at  the 
valley  are  each  representative  of  the  shear  stress  over  half  the 
surface  area.  This  is  clearly  an  ad  hoc  assumption  since  the  shear 
stress  may  not  vary  in  a  linear  manner  along  the  surface  from  the 
crest  to  the  valley.  The  shear  stress  at  the  crest  is  computed  to  be 
1.58  N/m^  while  that  at  the  valley  is  computed  to  be  0.40  N/m^.  Thus 
agreement  of  the  friction  factor  value  of  0.0318  computed  by 


associating  each  of  these  values  of  the  shear  stress  with  half  the 
area  with  the  value  of  0.0315  computed  using  the  pressure  drop  data  of 
Yampolsky  and  Palvics  (1983)  must  be  viewed  as  fortuitous.  It  is 
interesting  to  note  that  the  average  of  the  valley  and  crest  shear 
stresses  are  about  60%  of  the  smooth  tube  value  at  the  same  Reynolds 
number  but  the  wetted  area  of  the  fluted  tube  is  about  170%  that  of  a 
smooth  tube  which  results  in  a  computed  friction  factor  about  equal  to 
that  of  the  smooth  tube  at  the  same  Reynolds  number. 

3.2  Turbulence  Intensity  for  Water  Flow 

The  root  mean  square  axial  velocity  normalized  by  the  center- 
line  velocity,  the  friction  velocity  and  the  local  mean  velocity  are 
shown  respectively  in  Figures  12-14.  The  distribution  is 
qualitatively  similar  to  the  smooth  tube  data  in  that  the  minimum 
intensity  is  at  the  centerline  with  a  generally  monotomic  rise  to  a 
maximum  which  occurs  near  the  wall.  This  behavior  is  considerably 
different  from  that  in  the  fluted  tube  study  of  Silberman  where  there 
is  a  broad  maximum  in  the  intensity  which  occurs  in  the  range  of 
0.15  <  ( 1-r/R)  <  0.4.  For  the  present  data  for  (1-r/R)  <  0.45  the 
relative  intensity  for  the  crest  and  valley  data  are  about  the  same  as 
the  smooth  tube  data  however,  for  (1-r/R)  >  0.45  the  relative 
intensity  for  the  crest  data  increases  relative  to  that  of  the 
valley  data  which  remains  nearly  equal  to  the  smooth  tube  data  to 
(1-r/R)  =  0.6  which  corresponds  to  the  circumference  which  is  tangent 
to  the  crest.  The  relative  intensity  decreases  at  positions  further 
from  the  centerline  until  a  point  about  midway  between  the  crest  and 
the  valley  when  there  is  a  relative  Increase  as  the  solid  surface  of 
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the  valley  is  approached.  The  presence  of  a  secondary  vortical 
motion,  with  center  midway  between  the  valley  and  crest  could  account 
for  the  reduction  in  turbulent  kinetic  energy  at  that  position. 

3.3  Mean  Axial  Velocity  for  Air  Flow 

The  mean  velocity  normalized  by  the  centerline  velocity  and  the 
friction  velocity  is  shown  respectively  in  Figures  15  and  16. 
Qualitatively  similar  to  the  water  flow  data,  the  mean  velocities  are 
reduced  relative  to  the  corresponding  smooth  tube  data.  However,  the 
relative  reduction  is  less  than  that  of  the  water  flow.  For  example, 
at  (1-r/R)  ■  0.2  the  reduction  for  the  crest  and  valley  data  is 
respectively  about  5%  and  7%  which  is  about  one-half  the  reduction 
found  for  the  water  flow.  Some  of  this  difference  may  be  due  to  the 
fact  that  the  Reynolds  number  for  the  air  experiment  is  about  three 
times  that  of  the  water  experiment. 

The  relative  reduction  in  mean  velocity  can  also  be  seen  in  the 
reduced  value  of  the  exponent  in  the  power  law  relationship  given  by 
Eqn.  6.  The  exponent  corresponding  to  the  crest  data  is  4.1  while 
that  corresponding  to  the  valley  data  is  4.08.  Schlichting,  referring 
to  the  results  of  Nikuradse  states  that  the  exponent,  n,  should  be 
about  6.6.  It  is  interesting  to  recall  that  for  the  water  flow  there 
is  a  25%  diff’rence  between  the  exponents  for  the  crest  and  valley 
data.  This  difference  corresponds  to  the  fact  that  in  the  water  flow 
the  mean  velocity  for  the  valley  data  is  less  than  that  of  the  crest 
data  for  (1-r/R)  <  0.5  in  contrast  to  the  corresponding  data  for  the 
air  flow  which  differ  significantly  only  for  (1-r/R)  <  0.2. 
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The  velocity  defect  normalized  by  the  friction  velocity  plotted 
versus  ( 1-r/R)  is  shown  in  Figure  18  where  the  horizontal  axis  is 
logarithmic.  Both  the  valley  and  crest  data  are  nearly  linear  when 
plotted  in  this  manner  which  suggests  that  the  universal  velocity 
defect  law,  given  by  Eqn.  7  is  valid  for  the  air  flow  data.  The  value 
of  the  coefficients  for  the  crest  and  the  valley  data  for  the 
coefficient  multiplying  the  logrithmic  term  are  -4.798  and  -3.952 
respectively  and  for  the  intercept  are  -0.411  and  -0.126 
respectively.  The  magnitude  of  the  coefficient  multiplying  the 
logarithmic  term  for  the  crest  data  is  larger  than  that  corresponding 
to  the  valley  data.  This  corresponds  to  the  larger  weighting  given  to 
the  portion  of  the  profile  nearest  the  solid  boundary. 

The  mean  velocity  profiles  as  a  function  of  distance  from  the 
nearest  solid  surface  for  the  crest  and  valley  data,  the  smooth  tube 
data,  and  fluted  tube  data  of  Silberman  are  shown  in  Figure  19  which 
corresponds  to  Figure  11  for  the  water  data.  Again  it  is  clear  that 
the  mean  velocity  is  reduced  relative  to  that  in  the  smooth  tube. 

For  example,  at  y/R  *  0.1,  the  mean  velocity  corresponding  to  the 
crest  and  the  valley  data  are  reduced  respectively  5%  and  13%  relative 
to  that  in  the  smooth  tube.  These  reductions  are  about  one-half  those 
found  in  the  water  flow.  The  shear  stress  computed  using  the  gradient 
of  the  mean  velocity,  obtained  in  a  manner  similar  to  that  used  to 
determine  the  shear  stress  for  the  water  flow  is  found  to  be 
1.691  N/m^  at  the  valley  and  4.157  N/ra^  at  the  crest.  The  ratio  of 
crest  to  valley  shear  stress  is  about  2.5  while  the  corresponding 
ratio  for  the  water  data  is  about  4.0.  The  friction  factor  of  0.024 
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is  computed  using  the  preceding  values  for  the  shear  stress  and 
assuming  that  the  shear  stress  at  the  crest  corresponds  to  half  the 
surface  area  and  that  the  shear  stress  at  the  valley  corresponds  to 
the  other  half  of  the  surface  area.  This  value  is  only  about  10% 
higher  than  the  value  of  0.0217  obtained  using  the  pressure  drop  data 
of  Yampolsky  and  Pavlics  (1983). 

3.4  Mean  Azimuthal  Velocity  and  Flow  Angle 

The  normalized  mean  axial  velocity  is  presented  in  Figures  20  and 
21.  The  azimuthal  velocity  is  nearly  zero  on  the  centerline  and  rises 
to  a  maximum  at  a  circumference  corresponding  to  the  crest.  There  is 
a  gradient  in  the  mean  azimuthal  velocity  in  the  azimuthal  direction 
as  the  mean  azimuthal  velocity  for  the  valley  data  is  10  to  15%  higher 
than  that  of  the  valley  data  in  the  range  0.2  <  (1-r/R)  <0.6. 

The  mean  flow  angle  normalized  by  the  flute  angle  is  shown  in 
Figure  22  along  with  the  corresponding  data  from  the  fluted  tube  study 
of  Silberman.  (The  mean  flow  angle  is  defined  as  the  angle  between 
the  mean  azimuthal  and  axial  velocity  component.)  The  present  data 
reaches  a  maximum  flow  angle  of  about  35%  of  the  flute  angle  near  the 
circumference  corresponding  to  the  level  of  the  crest. 

The  mean  flow  angle  presented  in  Figure  22  does  not  indicate 

whether  a  fluid  particle  at  a  particular  flute  angle  has  a  rotation 

rate,  W/r,  that  will  correspond  to  a  complete  revolution  in  the  time 

that  it  takes  a  fluid  particle  to  move  an  axial  distance  equal  to  the 

lead  length,  l ^  ,  of  the  flute.  This  time  is  given  by  the  ratio  of 

*f 

the  lead  length  divided  by  the  local  axial  velocity,  — .  Thus  the 

U 

rotation  rate  required  for  a  fluid  particle  to  make  one  complete 


revolution  in  the  time  it  takes  that  fluid  particle  to  move  a  distance 
equal  to  the  lead  length  is  2irU / Figure  23  shows  the  ratio  of  the 
local  rotation  rate  to  that  required  for  a  complete  revolution  in  one 
lead  length.  It  is  obvious  that  the  fluid  is  not  in  solid  body 
rotation.  The  relative  rotation  rate  is  nearly  zero  at  the  centerline 
and  increases  to  a  maximum  of  about  60%  near  the  flute  crest  and  then 
falls  to  about  30%  in  the  flute  valley.  However,  it  should  be  noted 
that  this  last  data  point  has  a  large  uncertainty  associated  with  it 
due  to  the  relatively  large  size  of  the  sensing  volume  compared  to  the 
scale  of  the  flute  valley.  The  maximum  relative  rotation  rate  is  less 
than  that  found  in  the  Silberman  study  and  may  be  due  to  the 
relatively  small  ratio  of  length  to  lead  of  26  which  suggests  that  the 
azimuthal  velocity  profile  may  not  be  fully  developed. 

3.5  Turbulence  Intensity 

The  intensities  of  the  axial,  radial  and  azimuthal  velocities 
normalized  by  the  centerline  velocity  are  shown  in  Figures  24-26  and 
the  corresponding  quantities  normalized  by  the  local  mean  velocity  are 
shown  in  Figures  27-29.  For  both  the  crest  and  valley  data,  the 
distributions  of  the  root  mean  square  (rms)  axial  velocity  normalized 
by  the  centerline  and  by  the  local  mean  velocity  are  similar  to  the 
corresponding  data  of  Schildknecht  et  al.,  but  for  the  mid-radius 
positions  is  about  12%  higher  than  the  corresponding  smooth  tube 
data  of  Laufer  and  Sandborn.  These  results  are  in  contrast  with  the 
corresponding  ones  for  water  where  the  relative  axial  velocity 
intensity  for  (1-r/R)  >0.5  was  about  the  same  as  for  the  smooth  tube 
data  of  Laufer  and  where  (1-r/R)  <0.5,  the  relative  intensity  for  the 
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crest  data  became  larger  than  even  the  corresponding  results  of 
Schlldknecht  et  al.  while  the  corresponding  valley  data  reached  values 
Intermediate  between  those  of  Laufer  and  Schlldknecht  et  al. 

The  normalized  rms  radial  velocity  for  (1-r/R)  >  0.9  for  both  the 
crest  and  valley  data  Is  about  14 %  less  than  the  corresponding  smooth 
tube  data  and  for  (1-r/R)  >  0.1  Is  about  50  to  60%  less.  The 
normalized  rms  azimuthal  velocity  for  (1-r/R)  >0.1  is  about  25%  less 
than  that  of  the  corresponding  smooth  tube  data  and  about  60%  of  the 
rms  axial  velocity. 

The  turbulence  kinetic  energy,  q^,  normalized  by  the  friction 
velocity  is  shown  on  Figure  30  and  is  nearly  equal  to  the 
corresponding  values  of  Schlldknecht  et  al.  and  about  11%  higher  than 
the  corresponding  results  of  Laufer. 

3.6  Correlation  Coefficients 

The  correlation  coefficients  are  shown  in  Figure  31.  The 
correlation  coefficient  for  the  axial  and  radial  velocity,  for  both 
the  crest  and  valley  data  is  similar  to  the  smooth  tube  data  of  Laufer 
and  generally  about  30%  higher  than  the  data  of  Schlldknecht  et  al. 

For  (1-r/R)  >0.3,  the  data  is  generally  similar  to  that  of  Bremhorst 
and  Bullock  (1973)  but  does  not  show  the  gradual  decrease  near  the 
wall  that  the  latter  data  set  does.  The  correlation  coefficient 
between  the  axial  and  azimuthal  velocity  is  negligible  in  the  central 
region  of  the  flow  (1-r/R  >  0.5)  but  shows  an  Increase  for  both  the 
crest  and  valley  data  as  the  tube  wall  is  approached. 

The  two  Reynolds  stresses  normalized  by  the  square  of  the 
friction  velocity  correlation  is  only  slightly  greater  than  the  smooth 


tube  data  of  Laufer  but  about  25%  greater  than  the  corresponding  data 
of  Schildknecht  et  al.  for  1-r/R  >0.1.  Near  the  wall  the  present 
correlations  are  somewhat  lower  than  the  smooth  tube  correlations  -  a 
result  that  is  due  to  the  relative  displacement  of  the  solid  surface 
from  the  position  corresponding  to  r/R  -  0  and  of  course  to  the 
geometry  of  the  flutes.  The  correlation  of  the  axial  and  azimuthal 
velocity  show,  for  both  the  crest  and  valley  data,  that  there  is 
little  or  no  correlation  for  1-r/R  >0.5  but  that  a  positive 
correlation  exists  for  1-r/R  <0.5.  This  suggests  that  the  influence 
of  the  flutes  on  the  flow  extends  to  only  about  the  half  radius 
position  with  the  most  significant  Influences  as  expected  near  the 
fluted  surface.  The  axial  and  radial  velocities  normalized  by  the 
turbulent  kinetic  energy  are  shown  in  Figure  34.  The  results  so 
normalized  are  similar  to  the  smooth  tube  data  of  Laufer. 

3.7  Temperature  Field 

The  difference  between  the  mean  temperature  at  the  wall  Tw,  and 
at  that  particular  radial  location  normalized  by  the  difference 
between  the  wall  temperature  and  the  centerline  temperature,  Tmax,  is 
shown  on  Figure  35.  The  profiles  about  the  centerline  are  nearly 
symmetric,  though  the  valley  data  in  the  lower  half  of  the  tube  are 
about  3%  higher  than  the  corresponding  crest  data  in  the  lower  half  of 
the  tube.  In  the  upper  half  of  the  tube,  the  mean  temperature  for  the 
valley  and  crest  data  are  nearly  identical.  In  the  spiral  fluted 
tube,  the  normalized  mean  temperature  is  less  than  that  in  the  smooth 
tube  and  the  gradient  near  the  wall  is  less  than  that  in  the  smooch 
tube.  This  latter  observation  is  consistent  with  an  augmentation  of 
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the  heat  transfer  rate  In  the  spiral  fluted  tube  relative  to  that  in 
the  smooth  tube. 

The  root  mean  square  temperature  normalized  by  the  difference 
between  the  wall  and  centerline  temperature  is  shown  in  Figure  36. 

The  root  mean  square  temperature  for  the  crest  and  valley  data  are 
within  3%  of  each  other  and  both  are  about  35%  higher  than  the 
corresponding  data  of  Bremhorst  and  Bullock. 

The  correlation  coefficient  for  the  temperature  with  each  of  the 
three  velocity  coefficients  is  shown  in  Figure  37  along  with  the 
corresponding  data  of  Bremhorst  and  Bullock  for  a  smooth  heated 
tube.  For  each  of  the  three  correlations  the  crest  and  valley  data 
are  similar.  The  axial  velocity-temperature  correlation  coefficient 
is  a  factor  of  two  or  more  larger  than  the  radial  velocity  temperature 
correlation  and  peaks  in  the  outer  region  of  the  flow  at  1-r/R  ~  0.3. 
The  radial  velocity  temperature  correlation  coefficient  reaches  a 
maximum  at  1-r/R  ~  0.4.  At  the  centerline,  the  correlation 
coefficient  is  about  equal  in  magnitude  to  that  found  by  Bremhorst  and 
Bullock  for  the  smooth  tube  though  the  correlation  coefficient  for  the 
present  data  is  positive  while  that  of  Bremhorst  and  Bullock  is 
negative.  The  reason  that  the  correlation  coefficient  is  not  zero  on 
the  centerline  as  expected  from  symmetry  considerations  is  that  the 
line  along  which  data  are  collected  does  not  pass  through  the  exact 
fluid  dynamic  centerline  of  the  tube.  At  1-r/R  ~  0.9  the  correlation 
coefficients  for  the  smooth  and  spiral  fluted  tubes  are  about  equal 
but  for  1-r/R  <  0.9  the  correlation  coefficient  for  the  smooth  tube 
becomes  and  remains  larger  than  the  corresponding  value  in  the  smooth 


tube.  At  1-r/R  *0.5  for  example,  the  correlation  coefficient  for  the 
smooth  tube  is  about  30%  larger  than  the  corresponding  value  in  the 
spiral  fluted  tube.  It  should  be  remembered  at  I-r/R  ~  0.5  that  the 
rms  temperature  in  the  smooth  tube  is  about  30%  less  than  that  in  the 
spiral  fluted  tube  while  in  the  spiral  fluted  tube  at  1-r/R  ~  0.5  the 
rms  radial  velocity  is  about  14%  less  than  in  the  smooth  tube.  Thus 
in  the  spiral  tube  flow  at  r/R  ~  0.5  the  unnormalized  value  of  the 
correlation  coefficient  should  be  only  about  15%  less  than  that  in  the 
smooth  tube. 

The  correlation  coefficient  of  the  temperature  and  azimuthal 
velocity  is  essentially  zero  from  the  centerline  to  1-r/R  ~  0.9  with 
an  indication  of  a  positive  correlation  near  the  flute  crest  and  a 
negative  correlation  near  the  valley.  These  different  signs  of  the 
correlation  coefficient  at  positions  corresponding  to  1-r/R  <0.1  may 
correspond  to  a  small  secondary  though  intermittent  vortex  motion  with 
center  on  a  radius  passing  through  a  valley  at  about  the  crest  height 
that  preferentially  transports  hot  fluid  from  the  region  of  the  flow 
where  l-r/R  >0.1  to  the  region  of  the  flute  valley  and  subsequently 
transports  cool  fluid  from  the  flute  valley  to  the  region  of  the 
crest. 

The  radial  velocity-temperature  coefficient  normalized  by  the 
difference  between  the  wall  temperature  and  local  mean  temperature  is 
shown  in  Figure  38.  The  minimum  occurs  at  the  centerline  and 
Increases  monotoraically  as  the  wall  of  the  tube  is  approached.  In 
addition  there  is  little  difference  between  the  values  corresponding 
to  the  valley  and  crest  data.  Clearly,  throughout  the  tube,  the 
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radial  transport  of  heat  is  significantly  larger  than  in  the  smooth 
tube  as  the  values  of  the  radial  heat  flux  are  at  all  radial  positions 
about  30 7.  higher  than  the  corresponding  smooth  tube  values  of 
Bremhorst  and  Bullock. 

3.8  Mixing  Length 

The  computation  of  both  the  mixing  length  and  the  eddy 
dif fusivities  for  heat  and  momentum  requires  numerical  values  for  the 
gradient  of  the  mean  axial  velocity  and  temperature.  These  gradients 
are  obtained  by  first  using  the  method  of  least  squares  to  fit  a  third 
order  polynominal  through  the  mean  axial  velocity  and  temperature 
profiles  in  various  ranges.  The  gradients  in  the  mean  temperature  and 
velocity  are  determined  by  differentiation  of  the  third  order 
polynominals  and  are  shown  for  reference  in  Figures  39  and  40, 
respectively. 

The  mixing  length  is  important  in  models  used  for  the  prediction 
of  turbulent  flows.  The  measurements  of  the  three  mean  and  rms 
velocity  components  and  the  velocity  correlation  coefficients  permits 
an  examination  of  the  mixing  length.  For  a  complex  three  dimensional 
flow,  as  discussed  by  Kosliness,  Launder,  and  Sharma  (1974)  and  Shook 
and  Sagar  (1976),  the  correlation  of  the  axial  and  radial  velocities 
are  given  by  expressions  of  the  form: 

uTvT  -  l2J  ~  (8) 
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for  a  flow  with  a  mean  radial  velocity,  V  a  0. 

For  a  smooth  tube,  the  mixing  length,  £q,  is  given  by  the 
expression  presented  by  Schlichting  (1973)  where 


(9) 


£q  -  R[0. 14  -  0.08  (1  -  |)  -  0.06  (1  -  |)  ] 
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For  the  present  flow,  we  assume  that  the  terms  involving  gradients 
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In  the  radial  direction  such  as  ---  and  —  (--)  are  dominant.  It  is 
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clear  however  that,  while  terms  such  as  should  be  zero  for  fully 
developed  smooth  tube  flows,  that,  based  on  the  mean  velocity  data 
shown  on  Figures  7,  15,  and  20,  gradients  in  the  azimuthal  direction 
though  considerably  smaller  than  the  gradients  in  the  radial  direction 
are  not  identically  equal  to  zero.  The  mixing  length  calculated  using 
Eqn.  (8)  and  the  simplified  form  of  Eqn.  (9)  is  shown  in  Figure  41 
where  it  is  normalized  by  the  mixing  length  for  a  smooth  tube  with  no 
swirl  as  given  by  Eqn.  (10).  The  mixing  length  for  the  swirling  flow 
is  smaller  than  that  for  the  smooth  tube  for  1-r/R  <  0.3.  For 
1-r/R  >  0.3,  the  mixing  length  for  the  swirling  flow  becomes 
relatively  larger.  It  should  be  recalled  that  the  mean  velocity 
gradient  becomes  very  small  in  the  central  region  of  the  tube  and  that 


therefore  the  relatively  large  values  may  be  due  to  errors  associated 
with  the  differentiation  of  the  experimental  data. 


The  reduction  in  the  mixing  length  is  not  unexpected.  Bradshaw 
(1973)  has  discussed  the  effect  of  swirl  on  the  mixing  length  and 
suggests  that  the  Richardson  number 
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affects  the  mixing  length  as  indicated  in  the  following  expression 
where 
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where  8  is  a  negative  constant  equal  to  about  -5.0.  The  value  of  the  *•' 

computed  R^  number  obtained  using  Eqn.  11  is  shown  in  Figure  42  where  ® 

negative  values  correspond  to  flows  that  are  stabilized,  i.e.,  to 

flows  where  W  increased  with  r.  The  value  of  the  "constant",  8  is 

shown  in  Figure  43.  The  "constant"  varies  between  -2.3  and  0  for  ® 

0.1  <  1  -  r/R  <  0.7.  The  magnitude  is  less  than  that  suggested  by 

Bradshaw  though  the  sign  is  as  suggested.  The  large  values  of  8  near 

the  centerline  may  be  due  to  numerical  errors  introduced  during  the  * 

process  of  differentiation. 

3.9  Eddy  Dif fusivities  and  Turbulent  Prandtl  Number 

| 

The  eddy  diffusivity  for  momentum,  e,  is  defined  as 
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and  the  eddy  diffuslvity  for  heat,  e^,  Is  defined  as 

9  3T / 3r 
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The  eddy  dif fusivities  for  heat  and  momentum  are  shown  respectively  on 
Figures  44  and  45. 

The  eddy  diffusivity  for  both  the  crest  and  valley  data  are 
similar  in  shape  with  a  peak  at  about  1-r/R  ~  0.4  with  a  resonably 
constant  value  in  the  central  region  of  the  flow  (for  1-r/R  >  0.8) 
and,  as  expected,  a  value  of  zero  at  the  wall. 

As  shown  in  Figure  45  the  eddy  diffusivity  for  heat  for  the  crest 
and  valley  data  differs  more  than  does  the  eddy  diffusivity  for 
momentum.  For  0.4  <  1-r/R  <  0.8  the  eddy  dif fusivities  for  the  crest 
data  are  about  10Z  higher  than  the  valley  data.  The  peak  in  the  eddy 
diffusivity  for  heat  also  occurs  at  1-r/R  ■*  0.4.  The  eddy  diffusivity 
for  heat  is  zero  at  the  wall  of  the  tube  but  is  not  constant  valued  in 
the  central  portion  of  the  tube. 

The  turbulent  Prandtl  number,  at  ,  which  is  the  ratio  of  the  eddy 
diffusivity  for  momentum  divided  by  the  eddy  diffusivity  for  heat  is 
shown  in  Figure  46.  The  values  for  both  the  valley  and  crest  data  in 
the  range  0.2  <  1-r/R  <0.8  show  that  the  turbulent  Prandtl  number  is 
about  two.  Typical  values  of  about  0.7  are  found  for  flows  far  from  a 
solid  surface.  Near  a  solid  surface,  values  up  to  0.9  are  typically 
found,  but  in  this  flow  values  as  high  as  5  are  found. 
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4.  SUMMARY  AND  CONCLUSIONS 


The  mean  velocity  and  temperature  as  well  as  the  corresponding 
gradients  are  relatively  less  for  the  spiral  fluted  tube  flow  as 
compared  to  the  corresponding  quantities  in  the  smooth  tube  flow. 
Corresponding  to  the  relatively  low  mean  velocity  gradients  at  the 
wall,  the  shear  stress  is  lower  than  in  a  smooth  tube  at  the  same 
Reynolds  numbers.  The  reduction  in  shear  stress  is  offset  by  the 
increased  surface  area  so  that  the  pressure  drops  for  the  smooth  and 
fluted  tube  are  nearly  the  same. 

The  turbulent  Intensity  for  the  axial  velocity  in  the  fluted 
tube,  except  near  the  wall,  is  about  the  same  as  that  in  the  smooch 
tube.  This  result  indicates  that  Che  flutes  do  not  lead  to  an 
Increase  in  the  turbulence  level,  and  that  the  augmentation  in  the 
heat  transfer  rate  for  the  fluted  tube  must  be  due  to  some  other  flow 
effect  such  as  a  secondary  vortex  type  flow  in  the  vicinity  of  the 
flutes.  Measurements  in  the  water  flow  of  the  axial  velocity 
intensity  support  this  point  of  view. 

The  fluid  is  not,  in  a  mean  sense,  in  solid  body  rotation.  Near 
the  crest,  the  rotation  rate  is  reduced  by  about  40Z  of  chat 
corresponding  to  the  flute  angle.  At  the  same  radial  location,  but 
directly  above  a  valley,  the  rotation  rate  is  reduced  about  70Y 
relative  to  that  corresponding  to  the  flute  angle.  These  results 
suggest  that  the  azimuthal  velocity  profile  is  not  fully  developed  in 
contrast  to  the  axial  velocity  profile  which  appears  to  be. 

As  expected,  the  effect  of  increasing  rotation  rate  with  radius 
is  to  lead  to  a  reduction  in  Che  Prandtl  mixing  length.  Also  of 


interest  is  that  the  trubulent  Prandtl  number  reaches  a  value  of 
approximately  two  at  the  mid-radius  positions. 


5.  RECOMMENDATIONS 


Further  measurements,  especially  detailed  measurements,  near  the 
flutes  are  clearly  required  in  order  to  better  determine  flow  features 
that  are  responsible  for  the  augmentation  in  heat  transfer.  In  order 
to  accomplish  these  measurements,  a  tube  with  larger  flutes  and  flute 
separation  will  have  to  be  constructed  in  order  to  reduce  the  relative 
spatial  averaging  effects  due  to  finite  probe  size.  Alternatively 
laser  anemometry  techniques  can  be  employed  using  the  present  tube. 

The  effect  of  spatial  averaging  will  be  reduced  since  the  relative 
length  scale  for  the  laser  sampling  volume  is  about  10Z  of  that  of  the 
hot  wire  probe.  However,  seed  particle  migration  may  lead  to  some 
difficulties  with  the  use  of  the  laser  system. 

Also,  measurements  should  be  made  in  fluted  tubes  of  various 
lengths  to  assess  whether  both  the  axial  and  azimuthal  velocity  fields 
are  fully  developed.  Finally,  since  significant  augmentation  in  water 
has  been  found  at  high  heat  flux  levels,  measurement  of  the  time 
resolved  velocity  and  temperature  fllelds  should  be  made  at  different 
flux  levels  to  determine  the  effect  of  heat  flux  on  the  fluid  motion. 
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APPENDIX  A 


PHYSICAL  BACKGROUND  FOR  OPERATION  OF  HOT  FILM  SENSOR 

A  complete  understanding  of  the  operation  of  a  hot  film  sensor 
requires  a  thorough  understanding  of  the  concept  of  forced  convection 
heat  transfer  from  the  surface  of  heated  cylinder  in  cross  flow,  (cf. 
Hinze  (1975)).  The  rate  of  heat  transfer  from  the  film  depends  upon 
the  following: 

o  Velocity  of  the  cross  flow; 

o  Difference  in  temperature  between  the  film  and  the  fluid; 
o  Dimensions  and  physical  properties  of  the  film; 
o  Properties  of  the  fluid. 

The  heat  transferred  per  unit  time  to  the  ambient  fluid  from  a 
film  is  described  by 


q 


""Vs'VV 


(Al> 


where 

h  is  the  heat  transfer  coefficient 
dg  Is  the  diameter  of  the  sensor 
£g  is  the  length  of  the  sensor 

Tf,Tw  are  the  temperature  of  the  film  and  the  ambient 
fluid  respectively 

For  thermal  equilibrium  conditions,  this  heat  loss  must  be  equal 
to  the  heat  generated  per  unit  time  by  the  electric  current  through 
the  film 
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I  is  the  curent 


is  the  operating  resistance  of  the  film 
With  the  introduction  of  the  dimensionless  Nusselt  number 


Nu 


hd 
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~K~ 


where 


K  is  the  heat  conductivity  of  the  water 
equation  (Al)  becomes 


Thus,  at  thermal  equilibrium 
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The  equation  (A4)  can  be  written 
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Introducing  King's  law  for  basic  heat  transfer  relation  for  flow  over 


cylinder 


Nu  *  A  +  B  Re"  (A6) 

Dds 

where  Re  is  the  Reynolds  number.  Re  -  --- 

assuming  constant  fluid  properties,  and  from  equations  (AS)  and  (A6), 
we  obtain 


Nu  =  A  +  Bll"  ( A7 ) 

This  equation  relates  between  anemometer  voltage  and  effective  cooling 
velocity  around  the  film.  The  final  form  of  the  calibration  equation 
was  found  to  be 


s~=-  =*  0.0432  +  0.0236U* 30 
lf  ”  w 

In  order  to  prevent  the  formation  of  gas  bubbles  on  the  surface  of  the 
sensor  an  overheat  ratio  of  1.055  is  selected  which  corresponds  to  a 
film  temperature  of  56.099°C.  The  method  used  to  determine  the  film 
temperature  is  described  in  Appendix  B. 


APPENDIX  B 


CALIBRATION  TECHNIQUE  FOR  FILM  TEMPERATURE  DETERMINATION 

Since  the  temperature  sensitivity  Is  dependent  on  the  difference 

between  the  film  and  water  temperature,  Tf-Tw,  (which  is  small  in 

water  because  of  the  possibility  of  gas  bubbles  forming  on  the  sensor 

at  higher  values  of  Tf)  inaccuracies  in  the  value  of  the  film 

temperature  will  effect  the  calculated  response  to  ambient  temperature 

variations.  The  temperature  of  each  film  must  be  determined  in  order 

to  reduce  Che  uncertainty  of  the  computed  velocity. 

The  relation  between  the  operating  temperature  of  the  film,  T^ , 

and  the  overheat  ratio  =  1.055  (ratio  of  operating  resistance  at 

c 

Tf,  and  the  resistance  at  ambient  temperature,  Tw)  is  as  follows 

r  ■ 1  *  *c(W  <B1> 

c 

where  ac  is  the  temperature  coefficient  of  resistivity  of  the  film  and 
is  provided  by  the  probe  manufacturer.  In  principle  the  above 
equation  can  be  used  to  obtain  an  accurate  value  for  T^  but  in 
practice  due  to  resistances  not  associated  directly  with  the  film,  R^ 
may  not  be  accurately  known.  Thus  for  most  accuracy,  T^  should  be 
determined  by  means  of  a  direct  calibration  technique. 

One  such  calibration  technique  involves  holding  the  calibration 
velocity  fixed  and  then  varying  the  water  temperature  and  recording 
the  corresponding  bridge  voltage.  A  least  square  fit  of  the 
temperature  -  voltage  squared  calibration  pairs  can  be  shown  to 


provide  a  means  of  determining  the  film  temperature.  We  develop  this 
relationship  by  first  considering  the  King's  law  relationship  where 


T--T 
f  w 
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For  a  constant  velocity  Eqn  (B2)  can  be  rewritten  as 


-  CT,  -  CT 
f  w 


(B2) 


(B3) 


where  Tj  is  the  temperature  of  the  film  and  is  constant. 

Tw  is  the  ambient  temperature 

From  the  least  square  fit  of  temperature  versus  bridge  voltage 
squared,  we  would  obtain  an  equation  of  the  form 

E2  *  A  +  B  T  (B4) 

w 

where  A  and  B  are  the  coefficients  obtained  from  the  least  squares 
fit.  From  a  comparison  of  the  terms  in  Eqns.  (B3)  and  (B4)  it  is  easy 
to  see  that 


A  =*  CTj  and  B  =*  -  C 


(B3) 


which  implies  that 


APPENDIX  C 


COMPUTATION  OF  FLOW  ANGLE  AND  MEAN  VELOCITY 


The  calibration  and  development  of  an  inversion  equation  relating 
the  flow  angle  and  total  velocity  to  the  bridge  voltage  squared 
obtained  from  two  sensors  in  an  x-wire  sensor  requires  some  discussion 
-  especially  since  the  expected  flow  angles  are  large  (greater  than 
±  30°C).  We  begin  this  development  with  King's  law  type  relationship 
between  the  bridge  voltage  squared  and  the  effective  cooling  velocity: 
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(  C  3 ) 


where 

ueff  18  the  effective  cooling  velocity 
U  is  the  velocity 

P  is  the  angle  between  U  and  the  sensor 
k  is  the  tangential  cooling  coefficient  of  the  sensor 
Tp  is  the  temperature  of  the  film 
Ta  is  the  temperature  of  the  air 


Applying  the  above  equation  for  both  sensors  of  an  "x"  wire  probe  we 
obtain 
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We  assume  that 


$  =»  <t>  ■  45u 

°1  °2 


such  that 


a  +  B  -  90u 


Also 
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Substituting  for  UQ  in  Eq.  (C4)  from  Eq.  (C5)  leads  to 
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cos  a  +  k^  sin  a 
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cos  8  +  k^  sin  8 
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but  use  of  the  following  triganometric  identities 
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upon  substituting  into  equation  (C8) 


cos2a  +  k12sin2a  (k^+l)  -  (k12-l)cos2a 
cos2  8  +  k22sin28  (k^+l)  +  (l22-l)cos2a 


Recall  that  a  »  45  +  ♦ 


cos2a  -  cos(90  +  2*)  *  -  sin2$ 


Thus  the  right  hand  side  of  equation  (C9)  becomes 


(kt2+l)  +  (k^-1)  sin2* 
(k22+l)  -  (k22-l)  sin2* 
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(C8) 


(C9) 


(CIO) 


-li  -  m.\  -*  ■  ^  . 


Ld-m 


••  ' 

■-X-  -  i.  V  .  A.  l 


J 

i 


i 


i 


Substituting  (CIO)  into  equation  (C8)  and  solving  for  $  leads  to 


r  E2 

(AT^1  'A1)B2 


sln2*  -  — 


(  AT^  2~  A2)B1-* 


(k22+l)  -  (kL2+l) 


■ (  AT  ^  2  ”  W 


(k22-i)  +  kr2-i) 


and  solving  equation  C5  for  U  leads  to 


(Cl  1) 


Vi* 


(AT  1 2  "  V 


1 


[ 


(k22+l)  -  (k22-l)sin2* 


v55} 


(C12) 


The  calibration  equations  for  a  hot  wire  one  and  two  were  found  to  be 
respectively 


,•5, _ 1, 


,  0.003508  +  0.0007565U"[cos‘(45+«)+(0.125)2sin2(45+*)] 

VI  “ 

,2 


.25 


WI  3 


•  5, _ 2, 


f_„__  ,  0.0038337  +  0.0007320U,'[cost(45-«)+(0.125)2sin2(45-*)] 


.25 


Wl  3 


where  by  direct  calibration 


T  =»  256. 262UC  and  T  -  256. 167 UC 
1  w2 
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APPENDIX  D 


COMPUTATION  OF  WALL  FRICTION  VELOCITY 


The  wall  friction  velocity  can  be  calculated  from 


where 


* 


u 


AP  °h 
L  4  p 


Combining  Equations  (Dl)  and  (D2)  yield 


(D1 


(D2 


* 


u 


where 

f  is  the  friction  factor 
Um  is  the  bulk  mean  velocity 

The  friction  factor  as  a  function  of  Reynolds  number  as  obtained 
from  Yampolsky  and  Pavlics  (1983)  is  shown  in  Figure  Dl. 

As  can  be  seen  below  a  Reynolds  number  of  80,000  the  friction 
factor  for  a  spiral  fluted  tube  is  the  same  as  that  for  smooth  tube 
within  the  uncertainty  of  the  measurements.  At  higher  values  of 
Reynolds  number  the  friction  factor  is  approximately  5-10%  less  than 
that  of  a  smooth  tube. 


APPENDIX  E 


CALCULATION  OF  WALL  FRICTION  FACTOR  BY  MEANS 
OF  AXIAL  VELOCITY  GRADIENT  AT  THE  WALL 

In  fully  developed  flow  In  a  horizontal  pipe  the  pressure  drop  is 
balanced  by  shear  forces  at  the  tube  wall.  The  force  balance  equation  for  a 
unit  length  of  tubing  is  as  follows 

ai  *c  •  /  1  s°  (E1> 


where  t  is  the  shear  stress  at  a  particular  location  on  the  tube  surface 

S  is  the  coordinate  along  the  tube  surface 

A  is  the  cross  sectional  area 
c 

^  is  the  pressure  drop 

If  we  assume  that  the  shear  stress  at  the  valley  and  the  shear  stress  at  the 
crest  each  act  on  equal  amount  of  the  perimeter 


(E2) 


when:  p  is  the  perimeter  of  the  tube 

Pv  and  pc  are  the  perimeters  of  valley  and  crest  respectively 


then  equation  (El)  becomes 


dP 

dx 


A 

c 


+  V 


(E3) 


where  t  and  t  are  the  shear  stress  at  a  valley  and  a  crest  respectively. 


Assuming  that  Che  shear  stress  at  Che  wall  can  be  evaluated  as 


then 


dU  * 

Tv  "  M  IF  >v 

dU  I 

Tc  "  w  IF  1  c 


dP 

dx 


V  £  I  4.  dU 

A  2  ^dr  'v  IF 
c 


] 


For  fully  developed  pipe  flow 


dP 

dx 


where  f  is  the  friction  factor 
Ura  is  the  Bulk  velocity 

is  the  hydraulic  diameter 
p  is  the  fluid  density 


Substituting  eq.  (E5)  into  eq.  (E4)  we  find  that 


Note  that 


.fti  (i2 1  +  |e  i  i 

77  2.  ldr  'v  dr  'c  1 
U  A 
m  c 


D 


h 


4A 


c 


P 


f 


4  v  dU  |  dU 

~=~2  lIF  'v  dr 


Equation  (E6)  becomes 


where  v  Is  the  kinematic  viscosity,  v  ■  -jj  . 

The  mean  axial  velocity  gradient  at  the  wall  can  be  determined  by  fitting  a 
third  order  polynomial  to  the  experimental  data  points  near  the  wall. 

-  a  +  b(l  -  |)  +  c(l  -  f)2  +  d(  1  -  |)3  (E8) 

o 

and  then  differentiating  with  respect  to  r  to  obtain 

f (b  +  2c  (1  -i)  +  3d(l  -f)3]  (»> 

The  constants  b,  c,  and  d  are  the  second,  third,  and  fourth  coefficients  of 

the  third  order  polynomial.  Evaluating  equation  (E9)  at  the  valley  and 

crest,  I  and  4^  I  can  be  determined  and  the  friction  factor  f  can  be 
dr  v  dr  c 

calculated  by  means  of  equation  (E7). 

A  third  order  polynomial  fit  for  our  experimental  data  leads  to  the 
following  equations: 
a  -  for  water  flow 
valley  data 

3!  -  [2.452  -  30.702(1  -  f)  +  1144.755(1  -  |)2] 


crest  data 


for  air  flow 


valley  data 


dU 

dr 


U 

^  l-  1.98  -  286.52(1 


_r 

R 


crest  data 


dU 

dr 


U 

[+  220.21 


3020.26(1  - 


+  3539.22(1  • 


■)  +  9275.04(1 


APPENDIX  F 


CALCULATION  OF  MIXING  LENGTH  AND  TURBULENT  PRANDTL  NUMBER 

a.  The  mixing  Length  l 

The  mixing  length  is  computed  using  the  equations  derived  by  Kooslinen  et 
al  (1974)  and  Shook  and  Sagar  (1976).  Using  the  mixing  length  hypotheses  in  a 
complex  flow  the  Reynolds  stress  can  be  expressed  by 

u7?  *  *2j  IF  (Fi) 


where 

l  is  the  mixing  length 

and  the  quantity  J  is  defined  by  the  following  equation: 


j2,  2  (iH)2+  2(1 (-^)2 

J  1  C3x;  ',3r' 


+  <iV  +  2  (iS)  (i2) 

v  3x'  r  v  3x'  v  3$' 


i-(i2)2  +  [r  -2—  (— ) J 2 
r2  k3$'  3r  Vr/J 


(F2) 


for  a  flow  where  V  =  0 

In  case  of  fully  developed  flow,  eqn,  (F2)  reduces  to 


J 


2 


(|V  + 

v  3r 


(F3) 


Substituting  eqn.  (F3)  into  eqn.  (FI)  and  solving  for  the  mixing  length  t 


b) 


_3U  r/JU')2 
3r  K3r; 

The  Turbulent  Prandtl  Number  ac 
The  turbulent  Prandtl  number  is 


+  <|U  Vl 

3r  r 


defined  as 


0.5 


a 

r 


(F5) 


where  e  is  the  eddy  diffusivity  for  momentum  e  ■  — - 

3U/  3r 


e 


9 


is  the  eddy  diffusivity  for  heat 


v’  9 * 
3T/3r 


Equation  (F5)  will  take  the  following  final  form 

3U/3r 

CTt  *  - 

v'  9' 

3T/  3r 


(F6) 


A  third  order  polynomial  obtained  using  the  method  of  least  squares  is  used  to 
the  measured  data  U,  W,  T  at  values  of  (1  -  -^)  ,  for  the  region  r  =*  0  to 
r  *  R.  To  obtain  an  accurate  fit  the  entire  region  was  divided  into  smaller 
regions  based  on  the  minimum  standard  deviation  of  the  measured  data  and  that 
calculated  using  the  third  order  polynomial  fit. 

3TJ  3W  3T 

The  following  are  Che  equations  obtained  for  — ,  — ,  and  for  the  air 

dr  dr  dr 

flow.  For  crest  data 


dU 


ir-[ 8.87 1— ( 2 ) ( 3 5 . 529 )< l-  £)+( 3)(49.850)(1-  |)2) 


0.061  <  1-  £  <  .150 


dU 

dr 


dU 

dr 


dW 

dr 


dW 

dr 


dW 

dr 


dT 

dr 


dT 

dr 


]p  t  2. 1 00— (  2)(3.678)(  1-  g)+(  3X  2.765X  1-  g)2] 

|2-  [  0 . 794— (  2  )  (  0 . 333  )(  1-  g)+(  3X0.033X  1-  g)2] 
g^  (0.079-(2)(0.930)( 1-  |)+(3)( 1.054)( 1-  g)2] 

-jp  [-0.987+(2)(  1.441X  1-  |)-(3)(0. 722X  1-  g)2] 

-jp.  [0.290-(2)(0. 469X1-  g)+(  3)(  0.  223)(  1-  g)2] 
g  [  183. 797-(2X618. 570X1-  |)+(  3)(  7 10. 650)(  1-  g)2] 
g  [23. 165-(2)(13. 780X1-  g)+( 3)(  1 .950)(  1-  g)2} 


0. 150  <  1-  g  <  0.507 

0.507  <  1-  ~  <  1.000 

0.061  <  1-  g  <  0.413 
0.413  <  1-  g  <  0.601 

0.601  <  1-  g  <  1.000 

0.061  <  1-  g  <  0.300 
0.300  <1  ~  g  <  1.000 


For  valley  data 


gg  *  g2’  [3. 776— (  2)(  16.938X1-  g)+(  3)(  33.998X  1-  g)2] 
gg  -  g2  [  1-8  78— (  2 )  (  3.049X  1-  g)+<  3)(  2. 159)(  1-  g)2) 
gg  -  g2  [0.595-(2)(0. 045X1-  g)-(  3)(0. 167)(  1-  g)2] 
gg  «  g2  [  0. 198+(  2  )  (  19.9  39 )  <  1—  g)+(  3X628. 348)(  1-  g)2] 
^  -  g2  [+0.O53-(2)(. 777X1-  g)+(3)(0.881>(l-  g)2] 
gg  ■  g2  [0.036-(2)(0. 490X1-  g)+<  3)(0.442)(  1-  g)2] 


-0.061  <  1-  g  <  0.100 

0.100  <  1-  g  <  0.600 

0.600  <  1-  g  <  1.000 

-0.061  <  1-  g  <  0.000 

0.000  <  1-  I  <  .413 

K 

0.413  <  1-  g  <  0.601 
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APPENDIX  G 


TABULATION  OF  EXPREIMENTAL  DATA 


The  following  tables  are  the  data  for  both  water  and  air  experiments. 

The  mean  velocities,  turbulent  intensities,  correlations,  kinetic  energy  and 
temperature  field  that  are  directly  measured  quantities  are  presented  in 
tables  Gl,  G2  and  G3  evaluted  at  values  of  r/R.  The  mixing  length,  eddy 
diffusivity,  and  turbulent  Prandtl  number  with  values  of  velocity  and 
temperature  gradients  evaluted  at  r/R  are  presented  in  Table  G4.  Values  in 
Table  G4  are  obtained  after  fitting  third  order  polynomials  that  are  shown  in 


Appendix  F 


TABLE  G2a 

LOW,  CREST  DATA 

VALUES  AND  CORRELATIONS 


868  22.928  2.536  6.973  3.343  1.525  1.846  4.628  16.901  2.452  0.892  0.506  0.1482 


TABLE  G2b 
LOU,  VALLEY  DATA 
VALUES  AND  CORRELATIONS 


5.243  0.845  0.1563  1.381  1.204  1.113  11.155  4.599  -0.194  -0.260  -0.133  -0.170 


TABLE  G3b 

AIR  FLOW,  VALLEY  DATA 
TEMPERATURE  FIELD 


r/R 

VT 

9' 

V'  0' 

u*0' 

R  « 
v0 

Ru0 

0.023 

17.156 

0.772 

0.063 

0.656 

0.0803 

0.273 

0.117 

17.083 

0.820 

0.156 

0.762 

0.179 

0.510 

0.211 

16.981 

0.900 

0.233 

0.984 

0.233 

0.670 

0.305 

16.295 

0.994 

0.327 

1.263 

0.274 

0.708 

0.399 

15.686 

1.098 

0.393 

1.643 

0.286 

0.718 

0.493 

14.000 

1.120 

0.486 

1.944 

0.307 

0.696 

0.589 

13.817 

1.285 

0.569 

2.545 

0.318 

0.670 

0.681 

12.810 

1.345 

0.599 

3.010 

0.297 

0.639 

0.774 

11.169 

1.318 

0.556 

3.053 

0.279 

0.606 

0.868 

9.532 

1.201 

0.364 

2.470 

0.197 

0.585 

0.962 

5.556 

0.700 

0.207 

0.853 

0.186 

0.557 

1.056 


0.699 


-0.246 


0.263 


-0.030  0.542 


TABLE  G4b 

AIR  FLOW,  VALLEY  DATA 

MIXING  LENGTH,  EDDY  DIFFUSIVITY  AND  TURBULENT  PRANDTL  NUMBER 


056  17044.98  -  7.99x10*  -  0.0051  -  -I.l38xl0~5  -3.079x10°  3.701 


Figure  I  Schematic  of  water  flow  Facility 


Figure  3  Sketch  of  spiral  fluted  tube 
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Figure  A  Water  calibration  facility 


velocity  normalized  by  the  friction  velocity  for  the 
(Same  symbols  as  Figure  7). 


Figure  9  Power  law  dependence  of  normalized  mean  axial  velocity  for  the 
water  flow:  crest  to  centerline  with  n-3.1,^  ;  valley  to 
centerline  with  n-4.1,0;  smooth  tube  data  of  Nikuradse  at 
Re  -  4  x  10^  with  n-6.0  (from  Schlicting  (1979)),  ^  . 


sal  logarithmic  velocity  distribution  for  the  water 
symbols  as  Figure  7). 


irmaltzed  mean  veloctty  distribution  as  a  function  of 
ora  the  nearest  solid  surface  for  the  water  flow.  (Sai 
gure  7). 


normalized  by  the  local  mean 
arae  symbols  as  Figure  7). 


Same 


Figure  17  Power  law  dependence  of  normalized  mean  axial  velocity  for  the  al 
flow:  crest  to  centerline  with  n-4.10;  valley  to  centerline  with 
n«4.08,  ;  smooth  tube  data  of  Vikuradse  at  Rg  »  2.3  x  104  with 

n-6.6  (from  Schlicking  (1979)).  (Same  symbols  as  Figure  9). 


liz 

the 


(Same  symbols  as  Figure  7) 


mean  square  azimuthal  velocity  normalized  by  the  local  mean 


Bremhorst  and  Bullock,  (1973),  top 


Figure  36  Root  mean  square  temperature  normalized  by  the  difference  between 
mean  centerline  and  wall  temperature  for  the  air  flow.  (Same 


fluted  tube  friction  factor  comparisons 


SECTION  C 

PRELIMINARY  STUDIES  OF  THE  TURBULENT  FLOW 
IN  ROTATING  TUBES 


PRELIMINARY  STUDIES  OF  THE  TURBULENT  FLOW 

IN  ROTATING  TUBES 


by 


Paul  A.  Libby 

Department  of  Applied  Mechanics  and  Engineering  Sciences 
University  of  California,  San  Diego 
La  Jolla,  California  92093 


Abstract:  The  equations  for  a  Reynolds  stress/  flux  description  of  the  turbulent  flow  with  heat 
transfer  in  a  smooth  tube  rotating  about  its  axis  of  rotation  are  developed.  Numerical  solutions 
using  the  Keller  box  method  are  obtained  only  for  the  isothermal,  nonrotating  case.  Future 
work  will  involve  extensions  of  the  numerical  method  to  include  rotation  and  heat  transfer. 


The  requirement  of  enhanced  heat  transfer  arises  in  a  variety  of  industrial  processes  with  the 
consequence  that  tubes  with  various  inserts,  fins,  etc.  are  used  to  increase  their  heat  transfer 
characteristics.  Generally  the  enhanced  heat  transfer  involves  augmented  momentum  transfer 
so  that  increased  pressure  drop  and  increased  heat  transfer  accompany  one  another.  However, 
the  spirally-fluted  tube  of  Yampolsky  ;l’.  appears  to  possess  the  attractive  feature  of  favorable 
heat  transfer  characteristics  with  either  no  penalty  in  pressure  drop  or  with  a  reduction  in  that 
drop.  From  a  fundamental  point  of  view  this  feature  calls  for  an  explanation  of  the  turbulent 
mechanism  by  which  the  heat  transfer  at  the  wall  is  facilitated  while  the  momentum  transfer 
leading  to  pressure  drop  is  not  similarly  increased.  It  is  our  purpose  to  apply  a  second-moment 
method  to  the  swirling  flow  with  heat  transfer  in  tubing  rotating  about  its  axis  of  symmetry  in 
order  to  examine  one  of  the  fundamental  aspects  of  the  flow  in  tubes  with  spiral  fluting. 

We  show  schematically  in  Fig.  1  the  flow  in  a  spirally-fluted  tube.  A  circular  tube  with 
inside  radius  R  has  a  perimeter  consisting  of  flutes  of  height  h  which  spiral  so  as  to  form  an 
angle  with  the  axis  of  rotation  denoted  o  (o  -  0  for  straight  flutes).  At  stations  sufficiently  far 
from  the  tube  entrance  the  flow  is  fully  developed.  An  idealization  is  adopted  such  that  the 
influence  of  the  flutes  on  the  flow  is  described  by  suitable  boundary  conditions  at  the  outer 
radius  of  the  core  which  we  denote  as  R.  From  this  perspective  it  is  appropriate  to  consider  the 
fully  developed  flow  in  a  circular  tube  which  is  rotated  about  its  axis  of  rotation.  Experiments 
in  this  case  are  reported  by  White  (2j  and  Murakami  and  Kikuyama  (3i.  As  might  be  expected 
the  effect  of  rotation  is  stabilizn  0  so  that  the  intensity  of  the  turbulence  and  the  pressure  drop 
are  diminished  by  rotation.  This  same  situation  prevails  in  the  core  region  of  spirally  fluted 
tubes  but  the  distribution  of  azimuthal  velocity  in  the  vicinity  of  the  flutes  is  destabilizing:  the 
interaction  of  these  two  regions  determines  the  fluid  dynamics  of  such  tubes.  Despite  the 
absence  of  this  interaction  the  cleanness  of  the  flow  situation  in  a  rotating  tube  makes  this  case 


-  3  - 


attractive  for  initial  study  although  it  does  leave  open  the  connection  between  the  geometry  of 
the  flutes  and  the  effective  rate  of  rotation  of  the  pipe. 

For  the  analysis  of  the  turbulent  flow  in  rotating  tubes  an  appropriate  method  for  describ¬ 
ing  the  turbulence  must  be  selected.  In  spirally-fluted  tubes  Launder  and  coworkers  treat 
three-dimensional  laminar  flow  [4]  and  three-dimensional  turbulent  flow  by  the  Jb-e-method  [5  . 
We  view  our  analysis  as  complementary  to  that  in  [5]  in  that  we  consider  the  axisymmetric  por¬ 
tion  of  the  flow  but  with  a  full  Reynolds  stress /flux  closure.  It  is  widely  accepted  that  descrip¬ 
tions  utilizing  this  closure  represent  the  most  complete  formulation  of  turbulent  shear  flows 
currently  available  since  anisotropy  of  the  velocity  fluctuations  is  taken  into  account.  Howexer. 
in  flows  with  complex  geometry,  e.g.,  in  three-dimensional  flows,  the  resulting  equations  are  fre¬ 
quently  too  complicated  with  the  consequence  that  methods  incorporating  less  fluid  mechanical 
detail,  e.g.,  the  well-known  Jfc-c-method,  are  employed.  Here  we  deal  with  a  flow  which  is  suffi¬ 
ciently  simple  from  a  geometric  point  of  view  to  be  amenable  to  treatment  by  the  full  Reynolds  \ 
stress/flux  closure. 

The  basis  for  such  a  treatment  is  provided  by  Launder  and  Morse  :6  who  apply  Reynolds 
Stress  closure  to  axisymmetric  shear  flows  without  and  with  swirl.  It  should  be  noted  at  the 
outset  that  reference  [6  is  in  the  nature  of  a  progress  report;  it  indicates  that  in  its  present 
stage  of  development  the  theory  of  axisymmetric  shear  flows  is  not  adequate.  Launder  and 
Morse  show  that  the  spreading  rale  for  nonswirling  jets  is  predicted  to  be  50^  too  high.  In 
addition  with  swirl  the  shear  stress  "  •  •  •  uw  has  the  wrong  sign  and  thus  the  numerical  solu¬ 
tions  display  a  reduced  rate  of  spread  in  contrast  to  the  strong  augmentation  found  in  practice." 
These  shortcomings  suggest  the  difficulties  of  predicting  swirling  turbulent  flows  and  the  impor¬ 
tance  of  close  coordination  between  experimental  and  predictive  efforts. 

As  a  further  justification  for  our  adopted  approach  we  note  that  second- moment  closure 
exposes  in  a  clear  fashion  the  mechanism  whereby  swirl  affects  the  heat  transfer  characteristics  ^; 
of  the  tube.  We  find  that  in  the  balance  equations  involving  the  radial  velocity  fluctuations 


additional  terms  proportional  to  the  radial  pressure  gradient,  dp/dr,  enter;  e.g.,  in  the  equation 
for  the  mean  radial  flux  of  temperature  the  additional  term  is  F  dp/ dr  .  It  is  interesting  to 
observe  that  this  term  is  the  counterpart  of  the  gravity  term  in  the  atmospheric  boundary  layer 
(cf.,  e.g.,  Meroney  (7|),  a  term  which  appears  to  lead  in  some  circumstances  to  large  heat  flux 
without  accompanying  increases  in  momentum  flux. 

The  velocity  characteristics  are  studied  first  under  the  assumption  that  the  rates  of  heat 
transfer  are  sufficiently  small  so  that  the  density  may  be  considered  constant.  As  a  second  step 
in  the  analysis  the  characteristics  of  the  temperature  field  in  the  tube  with  heat  transfer  are 
treated. 

We  encounter  considerable  difficulties  with  the  numerical  treatment  of  the  resultant  equa¬ 
tions  and  in  fact  these  studies  are  preliminary  because  of  the  limited  results  we  provide. 
Clearly  the  classical  case  of  the  turbulent  isothermal  flow  in  a  smooth  nonrotating  tube  must  be 
solved  first  before  the  more  complex  rotating  and  nonisothermal  cases  are  taken  up.  After  con¬ 
siderable  effort  our  numerical  technique  did  yield  solutions  for  this  initial  case  and  we  present 
the  comparison  between  prediction  and  experiment.  In  some  respects  the  comparison  is  satisfac¬ 
tory  but  in  others  the  agreement  does  not  engender  confidence  in  the  ability  of  the  theory  to 
yield  accurate  results  for  more  complex  flows.  In  addition  we  are  unable  to  achieve  convergence 
of  our  numerical  technique  for  the  next  case  we  consider,  namely  that  for  rotating  isothermal 
flow. 

The  numerical  technique  we  apply  to  the  system  of  describing  equations  is  the  Keller  box 
method.  In  this  method  the  equations  are  reduced  to  a  system  of  first  order  ordinary  differen¬ 
tial  equations  which  are  linearized  according  to  the  method  of  quasilinearization  and  then  put  in 
algebraic  form  by  the  use  of  central  differences.  Explicit  statements  of  the  boundary  conditions 
at  one  end  of  the  integration  range  displace  the  algebraic  equations  in  such  a  fashion  as  to  yield 
a  block  tridiagonal  matrix  which  may  be  solved  by  a  standard  algorithm.  An  error  measure  is 
defined  as  the  square  root  of  the  sum  of  the  squares  of  the  differences  of  each  variable  at  each 


grid  point  in  the  mesh  between  the  ifc-th  and  the  (k  - r  l)-th  iterate.  Convergence  is  achieved 
when  this  error  is  suitably  small.  The  converged  solutions  we  obtain  involve  a  heavily  graded 
mesh  so  as  to  place  a  large  number  of  points  close  to  the  wall.  Despite  considerable  effort  the 
calculations  are  not  robust;  thus,  for  example,  when  we  attempt  to  extend  the  theory  to  the 
case  of  a  rotating  tube,  we  are  unable  to  achieve  convergence.  Clearly  either  alternative  numeri¬ 
cal  techniques  or  further  study  of  the  application  of  the  Keller  box  method  to  the  system  of 
equations  involved  here  is  required. 


ANALYSIS 

Figure  1  shows  schematically  the  flow  and  coordinate  system  considered.  Since  we  assume  the 
flow  is  of  constant  density  and  fully-developed,  in  considering  the  velocity  field  only  the  mean 
pressure  p  varies  in  the  streamwise  direction.  We  follow  the  practice  in  :6  and  denote  the  mean 
velocity  components  by  capital  letters  and  the  related  fluctuations  by  lower  case  letters.  Thus 
the  mean  velocity  components  of  interest  are  lr(r)  and  W'(r)  with  fluctuations  v  and  u. 
Although  the  mean  radial  velocity  is  zero,  its  fluctuation  v  plays  an  important  role  in  the 
theory . 


Describing  Equations  for  the  Velocity  Field 

With  these  assumptions  preliminary  work  indicates  that  we  must  consider  the  following  equa¬ 
tions  resulting  directly  from  [6]  but  with  a  wall  correction  to  the  pressure-strain  model  added: 


Conservation  of  u  : 


°-  -  f.-C  j  *)-*(: 

+  ii  JL  (  ilZ  ±  j 

r  dr  ^  t  dr  J 


1  (2  o  -  $  )  +  cj.  /j  uv 


Conservation  of  v2: 


0  =  ~{e  -(ct-c,./)  -2(j  {*-2P)-c2uI)uv1£ 


H  —  —  r  *  ^  v2 
r  dr  (  dr 


2  ci  ^  t  /  -j  ~T  \ 
— 5 —  tr  ( v*  -  tr*  ) 


Conservation  of  v?: 


c- 7  ?-T*  + 


c »  d  f  r  kv*  d 


r  dr  \  t  dr 


2  ct  k  ~7  "7v 

—7—  «•  (»  -  «'  ) 


Conservation  of  tit" 


—  =  -  (c,  -  clvf)  ~  c  -  (1  -  a)  V3  11  +  (  $  («*  +  c2wf{?~  V5)  -  7 


(1  +  a)  titu 
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Conservation  of  c: 


0  = 


t  _  d  V  d 

_c<1_tlv_r  +  T_. 


rkv2 


(5) 


In  these  equations  the  notation  is  standard  but  several  comments  are  indicated.  The  quantity  k 
is  the  turbulent  kinetic  energy  1  fl ukuk  while  e  is  the  velocity  dissipation.  The  units  of  k/i  are 
( L/U)  so  that  the  coefficients  in  the  diffusion  terms  have  the  units  of  ( UL )  as  required.  The 
function  /  is  the  so-called  wall  function  which  corrects  the  pressure-strain  model  for  the  effect  of 
the  wall;  it  is  proportional  to  /fc!/2/(c  y)  where  y  if  the  distance  from  the  wall.  We  discuss  this 
matter  in  more  detail  later. 

We  need  additional  equations  to  complete  the  formulation  but  it  is  convenient  to  discuss 
Eqs.  (l)-(5)  before  proceeding.  In  these  equations  the  following  empirical  constants  appear:  Cj ; 
e2  with  the  related  constants  a  =  (8  —  c2)/ll,  &  ~  (®c2  ~  2) /1 1  and  7  =  (30c2  -  2) /55;  c,  ;  ctl; 
c<2;  and  the  two  constants  arising  from  the  wall  function,  cltl.  and  c2u  .  Values  of  these  con¬ 
stants  are  given  in  [6;  and  [8'. 

In  the  absence  of  swirl  W'  =  0  and  Eqs.(l)-(5)  represent  five  equations  for  the  three  velo¬ 
city  intensities,  tr,  v2,  t?,  the  mean  velocity  U  and  the  dissipation  (.  Solutions  to  these  equa¬ 
tions  subject  to  regularity  conditions  at  the  axis  (r  =  0)  and  boundary  conditions  at  the  wall 
describe  the  turbulent  flow  in  nonrotating  circular  tubes. 

The  continuity  and  three  mean  momentum  equations  do  not  enter  explicitly  in  our  formu¬ 
lation;  the  first  of  these  equations  leads  to  V  =  0  while  the  x-wise  momentum  equation  becomes 


1  d  ,  1  65  A  V2 

r  dr  p  dz  4  R 

where  A  =  8  SZV  (r  =  R)/ff  =  8 ^U/ur)2  is  the  friction  factor  U,  is  the  shearing  velocity  and  V 
is  the  mi;an  velocity  defined  by 


* 


dr  . 


(6) 


We  thus  obtain  the  radial  distribution  of  Reynolds  shear  stress 


W=±XF-L=U1J- 

8  R  R 


so  that  uv  is  not  a  dependent  variable  in  Eqs.(l)-(5).  The  radial  momentum  equation  deter¬ 
mines  the  radial  pressure  gradient  after  the  characteristics  of  the  velocity  are  known;  we  have 


_1_  /  r  _  W2  -t-  uF  _ _ 1_  Bp 

r  dr  '  '  r  p  dr 


As  suggested  earlier  Eq.{8)  will  enter  significantly  in  the  analysis  of  the  coupled  velocity  and 
temperature  fields  but  for  the  present  may  be  set  aside. 

Finally,  the  azimuthal  momentum  equation  leads  to  the  important  result  that  the  Rey¬ 
nolds  shear  stress  vw  =  0.  We  thus  find  that  only  two  of  the  possible  three  shear  stresses  are 
operative  in  the  flow  under  consideration. 

With  rotation  and  thus  swirl  two  additional  equations  are  required,  namely,  those  for: 


Conservation  of  utr: 


/  , ,  «tr  /,  \  —  d  H' 

-  (ci  “  '\wf)  —  <  -  (1  ~  a)  uv  — 


a  _  W  c«  dfrfcv2  d  _  c,  k  _ 

P  UV - r - —  -  -  UU’  -  — - —  W  tlU* 

r  r  dr  t  dr  rze 


Conservation  of  vur. 


=  -(1  -o)  piz.  -  yj£)- 

r  dr  r 


afy^W  _  dU  dW  ,  LtdW 


W  ,  dW 


These  additional  equations  determine  uu:  and  W  so  that  with  swirl  we  have  seven  equations  in 


seven  unknowns. 
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Boundary  Conditions 

Equations  (l)-(5),  (9)  and  (10)  contain  three  intensities,  the  dissipation  and  the  fitT'-stress,  each 
involving  second  derivatives,  and  the  U-  and  ^-velocity  components  involving  first  derivatives 
for  a  total  order  of  twelve.  In  nonswirling  flow  uw  =  W  =  0  and  the  total  order  is  reduced  to 
nine. 


Consider  in  detail  the  boundary  conditions  for  the  case  of  nonrotating  flow.  We  take  the 
boundary  conditions  on  axis  to  be  those  arising  from  regularity  considerations,  namely 


d  ^7  _  d  ^2  _  d 
dr  dr  dr 


=  0 


(11) 


and  from  the  physical  requirement  that  v5  =  uF.  Although  alternative  strategies  can  be  fol- 

* 

lowed,  we  find  it  convenient  to  specify  U  =  Ut  at  r  =  R.  Now  if  these  five  conditions  on  the 
axis  are  imposed,  the  equations  imply  that  duF /dr  =  dU/dr  =  0  are  automatically  satisfied  so 
that  for  this  case  we  have  five  conditions  on  the  axis  and  four  at  r  =  R.  ^ 

The  starting  point  of  our  considerations  of  the  boundary  conditions  at  the  surface  of  the 
tube  in  the  nonrotating  case  is  the  observation  that  our  equations  do  not  apply  at  the  wall.  i.e.. 
within  the  viscous  sublayer,  and  thus  that  the  conditions  we  seek  relate  to  the  outer  edge  of 
that  layer  taken  to  be  sufficiently  thin  so  that  without  introducing  significant  spatial  ambiguity 
we  can  consider  that  edge  to  be  at  r  =  R.  In  deriving  these  conditions  it  is  convenient  to  intro¬ 
duce  a  coordinate  y  measured  from  the  wall.  The  next  observation  is  that  the  dissipation,  based 
as  it  is  on  notions  of  isotropic  turbulence  which  fail  as  the  wall  is  approached,  must  be  expected 
to  have  a  special  character  as  y  -*  0.  Accordingly,  we  require  that  c  behave  in  a  fashion  con¬ 
sistent  with  experimental  observations  in  the  wall  region  of  turbulent  flows,  e.g.,  as  given  by 
mixing  length  theory.  Thus  as  y  -*  0  we  require  that  e,  k  v*A  =  Vf  =  k2  y*  9  U/dy  and  that 

the  logarithmic  law  applies,  namely  that 
• 

It  it  worth  noting  that  when  the  Keller  box  method  it  uted,  the  boundary  conditioni  mutt  be  treated  with  more  care  thao  in  more  * 
conventional  numerical  technique!. 
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where  ur2  =  uv~(r  =  R);  k  is  the  Karman  constant  and  B  is  a  second  empirical  constant.  Equa¬ 
tion  (12)  provides  a  means  for  eliminating  y  since  dU/dy  =  uf  /«  y.  Thus 


( 


e.k? 


k2  y2  (dU/dy) 


/ 


(13) 


In  addition  to  providing  one  boundary  condition  to  be  applied  at  r  =  R  Eq.  (13)  implies  that  as 

y-*Q,  r-*R,  ty  —  constant  and  that  as  a  consequence  Eqs.  (l)-(5)  take  on  special  forms. 

Before  discussing  these  in  details  we  note  that  the  variable  y  can  also  be  eliminated  from 

Eq.  (12);  although  we  use  the  resulting  equation  only  a  posteriori,  we  set  it  forth  at  this  junc- 
♦ 

ture;  we  have 


U_ 

«r 


K  R(-  dV/dr) 


+  B 


where  l/and  dV /dr  are  evaluated  at  r  =  R. 


(14) 


While  Eq.  (13)  is  a  synthetically  imposed  condition  reflecting  the  inapplicability  of  the  dis¬ 
sipation  equation  in  the  vicinity  of  the  tube  wall,  the  remaining  boundary  conditions  at  r  =  R 
are  determined  by  the  differential  equations  specialized  to  reflect  the  special  character  of  c  as 
r  —  R.  In  particular  u2,  v2  and  uF,  each  divided  by  u,2,  are  found  from  Eqs.  (l)-(3)  to  take  on 
constant  values  given  by  algebraic  combinations  of  the  various  empirical  constants  arising  in  the 
equations.  This  feature  implies  that  values  of  the  three  intensities  at  the  outer  edge  of  the 
viscous  sublayer,  taken  to  be  at  r  =  R,  can  be  specified;  indeed  such  a  specification  is  standard 
in  predictive  methods  involving  Reynolds  stress  closure  (cf.  reference  8).  Thus  for  nonrotating 
tube  flow  we  have  five  boundary  conditions  at  r  =  0  and  four  at  r  =  R. 

An  alternative  approach  would  involve  eatiefaction  of  Eq.  (14)  for  ipecific  value*  of  (u,  R /v)  and  determination  of  Ut  a*  part 
of  the  (olution.  The  indirect  procedure  we  follow  appear*  more  convenient. 


If  the  tube  is  rotating  about  its  axis  of  symmetry,  we  have  two  additional  conditions  at  the 


axis,  uw  =  W  =  0.  Since  vu)  =  0,  the  only  mean  shear  stress  at  the  outer  edge  of  the  viscous 
sublayer  is  uv"  =  ur3.  Thus,  if  we  again  consider  mixing  length  theory  to  apply  close  to  the  wall, 
we  readily  conclude  that 


I 


•“  ('  =  R)  =  0 


This  completes  specification  of  the  boundary  conditions  for  the  case  of  a  rotating  tube. 


Nondimensionalication  and  Reduction  to  First  Order  Equations  -  Nonrotating  Case 

We  use  the  shearing  velocity  tir  and  the  radius  R  as  the  two  nondimensionalizing  quantities. 
Accordingly,  we  define  the  following  dependent  variables: 

Af,  =  U/U,  .  /„  =  t ?/U3  ,  /v  =  v^/llr  ,  /„  -  V?  Ar 

£=</?/<.  K  =  1  (7„-  7V*  /.  ) 

In  order  to  reduce  the  differential  equations  to  first  order  we  introduce  the  following  additional 
dependent  variables: 


G, Gv=/'v/Tt/,  Gv  =  Iw  /T„ 


G,  =  E'  /Tu 


where  7"„  -  E/K  7V  rf  is  a  dimensionless  transport  parameter  and  where  prime  denotes  differen¬ 
tiation  with  respect  to  rj  =  r/R,  the  single  independent  variable. 

When  these  new  variables  are  substituted  into  Eqs.  (l)-(5)  and  Eq.  (7)  used  to  eliminate 
uv,  two  steps  are  needed  to  achieve  a  formulation  convenient  for  numerical  analysis.  In  the  first 
step  Eq.  (4)  is  solved  for  A/,'  to  obtain 


I 


M%  = 


_  (c>  -  Clwf)  E  T) 

Iy  K 


1 


l / 


G%  4  Gv  +  Gu 

Tk 


C.Kly. 


(1  -  a)  7V  -  0  -  7  K  -e  c2„.  (/„  -  7V)  /  j 


(15) 


El 

i 


a  ^ 


This  equation  permits  the  remaining  equations  to  be  solved  explicitly  for  the  derivatives  of  the 
other  eight  variables.  We  obtain  from  £qs.  (l)-(3)  and  (5)  the  following: 

/'.=  T„Gv  (16) 


G\=2L 


|£+(cI-c1./)^(/.-|#0 


(1  -  |(2o  -  3)  —  c2u  f)  M\ 


U") 


1\  =  Gv 


<V  =  -2- 

c. 


|^’(c,-c1u/)^(/v-|a) 


2C^V-  (A  -  4)  -  2  r,  (1  (a  -  2  3)  -  c2u  /)  A/, 


V  -  T„  GU..KS 


G  u'  = 


_  n 


}  A  -  (ci  -  clu./)  -f  (4  -  }  ^ 


■2C:V-  (4  -Iw)  +  lr,(a  +  0)  AC 


(18) 


(19) 


(20) 


(21) 
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In  terms  of  the  dimensionless  variables  the  boundary  conditions  become: 
At  r]  =  0: 

M%  =  Mt( 0),  given 

G,  =  Gy  =  Gt-  0,  ly  -  Iu 

At  t]  =  1: 

E  -  K  C,  K  Iy  (—  My'  ) 
ly  ,  ly  ,  Iu  ,  given 


In  these  equations  the  wall  function  J[rj)  is  expressed  as 
f=  ±11 

f  y 

where  0  is  selected  so  that  ]{r  -  R)  -  1;  from  the  behavior  of  t  as  y  —  0  either  with  or  without 
swirl  we  have 


k  ur  k1  " 

where  all  variables  are  evaluated  at  r  =  R.  Thus  we  have  in  dimensionless  form 

r-  CiK{1)  HI 

K  1)  E(1  -  r,)  ’  r)  < 

=  1,  n  =  i 


(24) 


For  the  case  of  a  rotating  tube  Eqs.  (9)  and  (10)  are  similarly  nondimensionalized  and 
decomposed  into  three  first  order  differentia)  equations.  The  first  of  the  two  steps  required  to 
achieve  a  form  convenient  for  numerical  analysis  is  in  this  case  somewhat  more  complicated  in 


AD-A150  774  FLUID  MECHANICS  AND  HEAT  TRANSFER  SPIRALLV  FLUTED  2/f 

TUBING(U)  GA  TECHNOLOGIES  INC  SAN  DIEGO  CA 
J  S  VAMPQLSKV  ET  AL  DEC  84  GA-A17832  N00014-82-C-0721 

F/G  28/4 


UNCLASSIFIED 


NL 


J.'  t."  '  T 


X 


n  <u 


K' 

?•; 

c*- 


4 


r. 


*  14  - 


that  the  derivatives  of  V  and  W  must  be  found  by  solution  of  two  algebraic  equations.  The 
remaining  derivatives  are  then  given  explicitly  as  in  Eqs.  (16)  *(23)  but  with  additional  terms 
arising  from  the  rotation. 


Describing  Equations  for  the  Temperature  Field 


Our  study  to  this  point  deals  only  with  the  prediction  of  the  characteristics  of  the  velocity 
within  the  tube  and  treats  the  density  as  constant.  We  now  take  up  analysis  of  the  situation 
when  the  temperature  of  the  wall  differs  slightly  from  that  of  the  fluid,  ^slightly"  implying  that 
the  density  can  continue  to  be  treated  as  constant. 

This  approximation  calls  for  comment.  If  the  radial  pressure  gradient  is  considered  to  be 
suitably  ’large"  in  the  same  sense  that  body  forces  due  to  gravity  are  treated  in  the  Boussinesq 
approximation,  then  we  find  that  with  swirl  coupling  between  the  velocity  and  temperature 
characteristics  arises  in  the  balance  equations  involving  the  radial  velocity  fluctuation.  In  par¬ 
ticular  a  term  v<  dp  fir  enters  the  '‘-equation,  a  term  ut  dp  fir  the  uv-equation  and  as  indicated 
earlier  a  term  r  dp  fir  the  vt-equation.  Here  in  the  interests  of  simplicity  and  in  the  spirit  of  an 
preliminary  investigation  we  provisionally  neglect  these  coupling  effects. 

The  temperature  is  decomposed  into  T  -r  t,  i.e.,  into  mean  and  fluctuating  components,  so 
that  the  the  equation  for  T(z,r)  with  axial  conduction  neglected  becomes 


U 


ar 

dz 


1^ 

r 


(25) 


We  denote  the  mean  temperature  on  the  axis  of  the  tube  as  T,  =  T,(z)  and  the  temperature  at 
the  wall  as  Tv  ,  taken  constant,  and  introduce  as  a  principal  dependent  variable  appropriate  for 
a  fully-dev eloped  flow  the  quantity 


©(„)  = 


T(x,n)  -  r„ 

t.(z)  -  r* 


i 


,  •*,  •*. 


a 


Note  that  0  $  ©  $  1.  Implied  by  these  considerations  is  a  modification  of  the  usual  notion  of 
fully-developed  flow  insofar  as  the  temperature  characteristics  are  concerned,  a  modification 
called  for  by  the  heat  added  or  withdrawn  along  the  length  of  the  tube. 

When  the  definitions  of  0  and  of  our  earlier  variables  are  introduced  in  Eq.  (31),  we  find 


A/.e  a 


+ 


1 

n  ( T ,  -  TJ 


=  o 


(26) 


where 


is  a  dimensionless  thermal  loading  parameter  assumed  here  to  be  constant.  The  second  term  in 
Eq.  (26)  involves  the  mean  radial  flux  of  temperature. 

As  an  aside  it  is  worth  noting  the  physical  significance  and  characteristics  of  A  .  If  Eq.  (26) 
is  integrated,  we  have 

l  _ 

(-  A)  J  M„G  r,  dr,  =  -  —■  (rj  =  1)  (27) 

i  «r  ( T ,  -  TJ 

The  right  side  is  a  dimensionless  heat  flux  and  the  integral  is  a  dimensionless  measure  of  the 
energy  being  convected  within  the  tube,  both  positive  definite  quantities.  Thus  A  <  0  and  we 
conclude,  as  must  be  the  case  on  physical  grounds,  that  if  Tt  <  Tv,  then  dT,/dz  >  0  while  if 
T,  >  Tm  ,  then  dTJdz  <  0. 

The  definition  of  A  and  the  assumption  that  it  is  constant  imply  that 

r.(«/®)  =  T.  +  A  ,xp(  Aji  ) 

where  A  is  an  integration  constant  which  can  be  determined  by  specification  of  T ,  at  some 


streamwise  station. 
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A  second-moment  closure  consistent  with  our  earlier  treatment  of  the  velocity  field  requires 
an  equation  for  the  radial  flux  vi;  as  indicated  by  the  review  due  to  Launder  [9'  there  exist 
uncertainties  regarding  the  second-moment  equations  for  turbulent  heat  and  mass  transfer  since 
considerably  less  attention  has  been  devoted  to  them  than  to  the  corresponding  equations  for 
momentum  transfer.  Accordingly,  we  are  justified  in  making  simplifying  assumptions.  We  find 
that  if  we  neglect  a  wall  correction  associated  with  the  correlation  ut,  we  need  only  one  addi¬ 
tional  partial  differential  equation  to  close  the  set  of  equations  for  the  temperature  field,  namely 
that  for  the  mean  radial  flux  vf 


,~5  9  T  _  9  7\  , 

(v  ~S7  ~  ur*  “ (c" 


Ccll 


'>7" 


h.  JL 

r  dr 


r  k  9  —  _  9  — , 

-  (v'  vt  +  tiv  \t) 

€  or  ox 


v?  kvt 

f  ? 


(28) 


The  first  two  terms  on  the  left  side  describe  production,  the  third  dissipation  and  the  remainder 
turbulent  diffusion.  The  additional  empirical  constants  are  ct,  ctl  and  cclur 

We  now  assume  that  the  flux  \  t  can  be  represented  in  a  form  appropriate  for  a  fully  - 
developed  flow,  namely  as 


vt(z,rj)  =  (T,(z)  -  TJ  \0(n) 


Furthermore,  we  introduce  two  additional  dimensionless  dependent  variables 


where  T„  is  the  dimensionless  exchange  parameter  introduced  earlier. 

Equations  (26)  and  (28)  and  the  definition  of  Gv«  lead  to  three  additional  equations  for  the 
temperature  field  within  the  tube,  namely 


Fst’  -  T*  (29) 

Fy0  =  A  M%  Tf  0  —  Fy0 


(30) 
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These  equations  are  to  be  solved  subject  to  the  obvious  conditions  at  the  axis,  0(0)  =  1. 
FYt  (0)  =  0.  We  follow  a  procedure  close  to  that  used  earlier  for  the  velocity  boundary  condi¬ 
tions  at  the  wall  of  the  tube.  The  mean  temperature  distribution  within  the  logarithmic  portion 
of  the  wall  layer  when  the  mixing  length  varies  as  (k  ft  t)  y  where  a,  is  a  turbulent  Prandtl 
number,  assumed  given,  is  easily  found  to  be 
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where  qw  is  the  rate  of  heat  transfer  taken  to  be  positive  when  the  fluid  is  heated  by  the  tube.  , 
Then  some  rearrangement  leads  to  * 


0(1)  = 


P  C,  ( T,  -  Tv) 


A/,(l)  =  Fv9  A/„(J) 


which  provides  the  desired  boundary  condition  at  r/  =  1. 


(32) 


NUMERICAL  ANALYSIS 


Generally  the  equations  for  a  Reynolds  stress  closure  are  solved  by  uncoupling  the  second  order 
partial  differential  equations  and  by  solving  each  difference  representation  by  a  scalar  tridiago- 
na)  algorithm.  This  is  the  basis  of  many  of  the  program  originating  with  the  group  at  the 
Imperial  College  of  Science  and  Technology.  Although  never  reported,  it  is  likely  that  this  pro¬ 
cedure  is  slowly  convergent  and  we  therefore  consider  here  the  numerical  treatment  of  Eqs.  (15) 
>  (23)  by  the  Keller  box  method.  That  we  intend  to  use  this  method  is  suggested  by  our 


formulation  in  terms  of  first  order  equations.  We  first  consider  the  linearization  of  these  equa¬ 
tions  as  follows:  If  for  notational  convenience  we  replace  the  dependent  variables  Mu,  /„,  etc.  by 
their  equivalent  y2,....j#9  we  can  formally  write 

V,'  =  9i( yv  »2'  •  -  -  Vi-  V),  *  =  1.  2,.— 9  (33) 

and  can  use  quasilinearization  to  obtain  the  equations  for  the  k  4-  1-iterate,  given  the  A-th 
iterate,  namely 


where  summation  with  respect  to  /  is  indicated  by  the  repeated  index.  Equations  (34)  consti¬ 
tute  a  set  of  linear  ordinary  differential  equations. 

Suppose  we  use  the  subscript  n  to  denote  a  value  corresponding  to  a  grid  point  location 
»j  =  r)n  and  let  a  spacing  between  such  points  be  denoted  as 


=  Vn  ~  Vn  -  1 

Then  a  central  difference  representation  of  Eqs.  (34)  is 


Equations  (35)  replace  Eqs.  (33)  by  a  set  of  algebraic  equations  subject  to  iteration. 

If  n  =  1  denotes  values  arbitrarily  close  to  7  =  0,  a  value  denoted  6,  and  n  =  N  values  at 
rj  =  1  and  if  the  first  five  equations  in  the  system  of  equations  are  explicit  statements  of  the  five 
boundary  conditions  at  17  =  0,  then  the  matrix  given  by  Eqs.  (35)  takes  the  form  shown 
schematically  in  Fig.  (2).  Thus  despite  the  two  point  nature  of  the  differencing  scheme  leading 
to  Eqs.  (35)  we  achieve  a/block  tridiagonal  matrix  with  N  submatrices  involving  9x9  elements. 


The  last  four  equations  in  the  matrix  specify  the  four  boundary  conditions  at  rj  =  1.  There  is  a 
standard,  efficient  algorithm  for  the  solution  of  such  a  matrix. 

One  of  the  difficulties  connected  with  implementing  the  solution  of  Eqs.  (35)  and  the  other 
approachs  to  the  solution  of  the  equations  for  a  Reynolds  stress  closure  is  that  estimates  for  all 
dependent  variables  at  all  grid  points  must  be  provided  in  order  to  initiate  the  integration  cycle. 
Here  we  use  the  experimental  results  of  Laufer  as  discussed  by  Hinze  jlO]  to  construct  analytic 
representations  of  the  nine  dependent  variables  within  the  range  r]  =  Sc  to  rj  =  1. 

A  second  difficulty  relates  to  achieving  convergence  and  the  rate  of  such  convergence  when 
it  occurs.  If  w'e  define  an  error  measure  as 

£*=  s  s  r -  v.)’ 

•  =  i  •  =  i 

we  require  EM  to  be  suitably  small.  Since  the  nature  of  the  flow  to  be  described  by  the  solution 
involves  large  changes  in  the  dependent  variables  close  to  the  wall,  our  experience  with  conver¬ 
gence  of  the  iterations  indicates  it  is  essential  to  have  a  fine  grid  spacing  close  to  rj  =  1.  Unless 
a  prohibitively  large  value  for  N  is  used,  this  requirement  suggests  the  use  of  a  graded  mesh. 
Accordingly,  we  assume 

*,  =  Mi  +  <<)"  (36) 

where  c  s  is  a  grading  parameter  and  where  6t  is  a  spacing  parameter  selected  so  that 

E*  =  K  E  0  +  u)'  =  1  -  (37) 

•  =  1  •  =  1 

In  our  numerical  examples  we  let  N  -  21,  6C  -  0.01  and  < s  =  -  0.2.  These  values  locate  the 


Oar  aarlkr  remark  oa  the  n*«d  for  cartful  Mlcctioa  of  tbt  boundary  condition i  wbta  the  Keller  box  method  it  uted  it  now  rein¬ 
forced. 
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first  eleven  grid  points  between  >7  =  0.01  and  ij  0.9  and  the  remaining  ten  between  the  latter 
value  and  rj  =  1. 

Our  experience  with  this  numerical  technique  to  the  extent  that  we  have  been  able  to 
experiment  with  it  suggests  that  it  does  not  yield  a  robust  computing  scheme.  Convergence  is 
at  best  slow  and  heavy  underrelaxation  is  required  to  achieve  any  convergence.  For  example,  to 
reduce  Em  from  560  to  0.05  requires  66  iterations  with  an  underrelaxation  factor  of  0.15.  How 
this  performance  compares  with  the  conventional  approach  to  equations  of  the  sort  encountered 
here  is  unknown. 

The  following  are  the  values  of  the  empirical  constants  used  in  our  calculations: 


c,  =  1.5 

c2  =  0.40 

c,  =  0.22 

c,  ,  =  1.45 

c{  2  =  1.90 

ct  =  0.35 

0.50 

c2u.  =  0.060 

k  =  0.40 

B=  5.4 

These  are  all  standard  values  (cf.  ;8  )  with  the  exception  of  c,  :  we  find  it  necessary  to  increase 
the  standard  value  of  0.15  to  that  indicated  here  in  order  to  achieve  the  correct  Re\riolds 
number  in  Eq.  (14). 

Experiment  suggests  and  we  therefore  impose  the  following  values  of  the  intensities  at 
>7  =  1,  values: 

7.(1)  =  5.06  7V  =  0.810  /„  =  2.89 

RESULTS  AND  CONCLUDING  REMARKS 

We  compare  our  predictions  for  nonrotating,  isothermal  tube  flow  with  the  experimental  results 
of  Laufer  (cf.  (lOj).  We  thus  specify  A/^O)  =  28.6  which  corresponds  to  a  Reynolds  number 
Uf  R/v  =  8740.  We  find  from  Eq.  (14)  that  the  predicted  value  of  urR/b  is  8130,  reasonably 


close  to  that  corresponding  to  experiment  and  that  the  mean  velocity  profile  is  in  excellent 
agreement  with  data  both  in  terms  of  the  logarithmic  and  velocity  defect  representations. 

Figures  3a  -  c  compare  the  measured  and  predicted  intensities.  Here  we  see  that  the 
predicted  axis  values  and  the  distribution  of  the  radial  intensity  as  indicated  by  /v  are  in  reason¬ 
able  agreement  with  the  data  but  that  near  the  wall  the  other  two  intensities  decrease  more 
rapidly  than  the  data.  Although  we  have  explored  a  variety  of  alterations  to  the  specification  of 
the  boundary  conditions  at  the  wall,  we  are  unable  to  improve  these  results  which  may  or  may 
not  be  considered  satisfactory. 

Further  studies  are  beyond  the  scope  of  the  present  investigation.  Future  research  should 
be  devoted  to  removing  the  discrepancy  indicated  by  Figs.  3a  and  3c  and  to  achieving  a  more 
robust  numerical  procedure,  first  for  nonrotating,  isothermal  flow  and  subsequently  for  the  more 
general  case  of  a  rotating  tube  with  heat  transfer. 
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Abstract 


The  thesis  describes  the  development  and  application  of  a 
computational  procedure  (based  on  the  curvilinear-orthogonal  TEACH  code 
which  incorporates  a  finite-volume  discretization  of  the  describing 
partial  differential  equations)  for  solving  both  velocity  and  temperature 
fields  in  fully-developed  laminar  and  turbulent  flows  through  spirally 
fluted  tubes. 

In  the  laminar  regime,  extensive  computational  results  have  been 

obtained  for  air  (Pr  ■  0.708),  water  (Pr  *  7.03)  and  ethylene  glycol  (Pr  *  93) 

3 

at  Reynolds  numbers  ranging  up  to  2.5  x  10  ,  with  flute  angles  varying 
from  0°  to  30°  and  with  10,  20  and  30  flutes  around  the  circumference. 

The  results  show  that  both  the  surface  heat  transfer  coefficients  and 
friction  factors  increase  over  the  smooth  tube  values.  However,  for  water 
and  especially  for  ethylene  glycol  the  increase  in  skin  friction  coefficient 
is  substantially  lower  than  that  of  the  heat  transfer  coefficient.  Thus, 
even  in  the  laminar  regime,  spirally  fluted  tubing  can  be  used  beneficially 
for  promoting  heat  transfer  in  fluids  of  high  Prandtl  number. 

In  the  turbulent  regime,  the  study  has  been  based  mainly  on  the  k-e 
Boussinesq  viscosity  model  over  most  of  the  tube,  merged  with  Van  Driest' s 
form  of  the  mixing-length  hypothesis  in  the  near-vall  region.  Three  fluids 
have  been  tested,  air  ,  water  and  calcium  chloride  solution  30Z  (Pr  *  19.6) 
in  tubes  with  spiral  angles  ranging  from  0°  to  30°  for  10,  20  and  30  flutes. 


The  predicted  results  show  enhancement  in  both  heat  transfer  and  skin 
friction  coefficients  over  the  unfluted  tube  values.  In  most  of  the 
cases  studied,  however,  the  increase  in  surface  heat  transfer  is 
considerably  higher  than  that  of  the  pressure  drop,  a  behaviour  quite 
desirable  for  applications  in  heat  exchangers.  The  comparison  with  the 
available  limited  experimental  data  showed  a  substantial  overprediction 
of  the  measured  friction  factors  and  heat  transfer  coefficients.  However 
an  important  (though  brief)  enquiry  into  the  nature  of  the  physical 
processes  (viscous  behaviour  of  the  flow  within  the  flutes,  sensitivity 
due  to  swirl)  led  to  a  significant  improvement  of  the  predicted  values 
in  agreement  with  the  experimental  data. 
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Nomenclature 


.  <S>  .  $  .  <&  .  <& 
A  *  A  f  A  9  A 
e’  w’  n’  s 


cross-sectional  area 

nominal  area  based  on  inside  diameter 

total  area 

control  volume's  east,  west,  north,  south  areas 


A*  A*  A/,  A* 

S’ 

b 


c 


fin 


CO*  e(n)’ 


f 

e 


» 


f 


f 


P 


f 


r 


coefficients  for  the  discretized  equations 


H/2ir 

kaS/ (kfd) 


specific  heat  at  constant  pressure 
turbulence  constant 
convection  coefficients 
diffusion  parameters 


hydraulic  diameter  (-  4A/P) 

base  vectors  in  the  (x^,x^,x^)  co-ordinate 
system 

normalized  base  vectors  in  the  (x^,x^ ,x^) 
co-ordinate  system 

friction  factor  based  on  hydraulic  diameter 


friction  factor  based  on  mean  radius 


-St  .ft* 

dz  SpQ* 


friction  factor  of  a  rough  surface 


friction  factor  of  a  smooth  surface 
friction  factor  of  a  spirally  fluted  tube 
friction  factor  of  a  smooth  tube 
convection  parameters 

turbulence  energy  generation  rate 

body  force  per  unit  mass  in  radial  direction 

height  of  flute 

height  of  a  constant-n  co-ordinate  line 
magnitudes  of  base  vectors  e^,  e^,  e^ 

spiral  pitch 

indices  for  dependent  variables  and  co-ordinates 

turbulence  energy 

vector  parallel  to  the  tube-axis 

thermal  conductivity  of  the  fluid 

thermal  conductivity  of  the  tape 

roughness  parameter 

fin  height 

mixing  length  for  a  parallel  plate  channel 
pipe  mixing  length 

mixing  length 

total  mass  flow  rate 

mass  flow  rate  in  the  region  R  $  R 

number  of  flutes 

maximum  values  of  indices  I,J 

Nusselt  number  based  on  hydraulic  diameter 

including  the  added  surface  area  due  to  fluting 
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Sf  "  Sf lute 


S.  *  source  term 
$ 


SU*  SP4 


flute  Reynolds  number 
mean  radius  of  a  co-ordinate-^  line 
matching  radius  between  the  curvilinear  and  polar 
parts  of  grid 
radius  of  the  tube  wall 
(*r/(r2  b3)  3r/an) 


perimeter  of  the  flute  *  — 


V  * 


("V  *4  *) 


Stanton  number 


source  terms 


inter-fin  spacing 
mean  temperature 


stress  tensor 


bulk  temperature 
reference  temperature 


wall  temperature 

temperature  on  the  wall  at  the  trough  position 


velocity  of  the  wall 


velocity  vector 
Reynolds  stresses 


heat  fluxes 


u(«>,  u(n\  «<*> 


V'r 


velocity  components  in  the 
co-ordinate  system 

mean  and  fluctuating  velocity  in  direction  £ 
under-relaxation  factor  for  $ 
mean  and  fluctuating  velocity  in  direction  r) 
circumferential  and  radial  velocity  of  (U  +  V) 
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W,  w 

W 

max 

W 


,<C) 


y 


+ 

y 


,(n) 

*  9 


.<*) 


mean  and  fluctuating  velocity  in  direction  z 

maximum  axial  velocity 

bulk  axial  velocity 

axial  velocity  at  the  pipe  axis 

velocity  components  in  the  (z^ 
co-ordinate  system 

co-ordinate  system  following  the  spiralling  of 
the  flutes 

distance  from  a  node  to  the  nearest  node  on  the 
wall 

y/pV'u 

axial  direction 

co-ordinate  system  following  the  tube-axis 


Greek  Letters 

a 


circumferential  angle  on  the  cross-stream  plane 
weighting  factor  accounting  for  the  non-uniformity 
of  the  grid 
fin  angle 

weighting  factor  accounting  for  the  non-uniformity 
of  Che  grid 
effective  diffusivity 

turbulent  diffusivity 

thermal  diffusion  coefficient  (■  u/Pt) 

diffusion  coefficients 


f  GJ  f  W 


kronecker  delta 


control  volume 


Arit  A£t  Az 


distances  in  rit  C  and  z  directions 


5u,  <5v 


C*  V  ez 


(0’e(n)’e(z) 


(»T  -  T  ) 
w 

laminar  sublayer  thickness 
velocity  corrections 
energy  dissipation  rate 

base  vectors  in  the  (z^,z^#z^)  co-ordinate 
system 

normalized  base  vectors  in  the  (z^\z^ ,z^z^) 
co-ordinate  system 
spiral  direction 

curvilinear  co-ordinates  mapping  the  cross-section 


efficiency 


sector  angle 


Nu  /Nu 
r _ s 

Vs. 


(-S) 


normalized  temperature  (■  T  -  T  ) 


temperature  fluctuation 


Von  Karman  constant 

(ai§£) 
v  b  ae 1 

i  _J.  3n  . 

(’b  TS  ) 


viscosity 


effective  viscosity 


turbulent  viscosity 

viscosity  on  the  wall 

kinematic  viscosity 

3.1468 

density 

density  fluctuation 
wall  shear  stress 

stresses 


spiral  angle  j^tan  <j>  ■ 

dependent  variable 
angular  velocity 


1 . 1  Introduction 


It  has  been-  known  for  a  long  time  that  spiralling  indentations  on 
the  inside  surface  of  circular  tubes  enhance  considerably  surface  heat 
transfer  coefficients.  However,  in  most  of  the  cases  this  improvement  is 
accompanied  by  substantial  increases  in  friction  factor,  a  feature  which 
deters  their  application  to  systems  where  the  pumping  power  is  of  primary 
importance . 

However,  experiments  have  shown  that  the  type  of  spirally  fluted 
tubes  evolved  by  Yampolsky  [lj ,  shown  in  Figure  1.1,  possess  highly 
attractive  features  for  use  in  heat  exchanges  and  condensers  for,  on  the 
inner  surface,  the  heat  transfer  coefficient  may  be  more  than  doubled 
compared  with  smooth  tube  values  while  the  friction  factors  remain  at 
values  associated  with  unfluted  smooth  tubes.  Moreover,  the  fabrication 
technique  of  rolling  flutes  on  strips  and  then  spiralling  and  simultaneously 
welding  the  strips  to  form  the  tubes  results  in  costs  not  significantly 
greater  than  those  of  commercially  welded  tubes. 

To  complement  the  experimental  work  currently  ongoing  by  J.C.  LaRue 
and  P.A.  Libby,  the  present  study  has  focused  attention  on  the  development 
and  application  of  a  numerical  solution  scheme  to  laminar  and  turbulent 
flows  through  spirally  fluted  tubes.  The  provision  of  such  a  procedure 
would  be  valuable  in  optimizing  the  design  of  the  fluting. 
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1.2  Literature  Survey 


Introduction 


The  thesis  describes  a  numerical  study  of  the  velocity  field  and 
convective  heat  transfer  characteristics  of  flow  in  the  spirally  fluted 
tubes  evolved  by  Yampolsky  [l],  an  example  of  which  is  shown  in  Figure  1.1. 

The  designer  of  heat  transfer  equipment  has  always  been  attracted  to 
schemes  which  improve  heat  transfer  coefficients.  Considerations  of  saving 
energy  and  materials  have  led  to  enormous  efforts  to  produce  more  efficient 
heat-exchange  equipment.  According  to  Bergles  [2]  (see  Figure  1.2)  the 
number  of  papers  published  per  year  in  this  area  shows  a  remarkable  increase 
in  the  last  decade,  a  feature  that  is  unique  in  the  international  scientific 
literature.  The  main  focus  of  this  work  is  to  reduce  the  size  of  heat 
exchanger  required  for  a  specified  heat  duty  or  to  increase  the  capacity  of 
an  existing  heat  exchanger.  In  some  cases  where  heat  generation  rates  are 
fixed,  an  efficient  heat  exchanger  can  prevent  excessive  temperatures  or 
system  destruction. 

The  various  techniques  for  augmenting  heat  transfer  inside  tubes  for 
laminar  or  turbulent  flows  may  be  divided  into  two  categories:  passive  and 
active  techniques.  Passive  techniques  are  those  where  no  external  energy 
is  required  to  augment  the  heat  transfer  other  than  the  pump  work.  Joshi 
and  Bergles  [  3]  in  their  survey  of  passive  heat  transfer  augmentation 
techniques  sub-classify  these  as: 


1)  Surface  roughness 

2)  Internal  extended  surfaces 

3)  Displaced  promoters 

4)  Swirl  flows 

5)  Curved  or  coiled  tubes 

6)  Additives 

and  7)  Compound  techniques  in  which  more  than  one  of  these  techniques 
are  employed. 

As  active  techniques,  where  external  energy  is  required  to  produce 
the  augmentation,  the  above  reference  lists  the  following:- 

1)  Rotating  tubes 

2)  Heated  surface  vibration 

3)  Fluid  pulsation 

4)  Electrostatic  fields 

5)  Suction  or  injection 

6)  Compound  techniques 

Bergles  and  different  co-workers  [  2],  [  3],  [  4],  [  5]  have  presented 
an  extensive  literature  survey  on  heat  transfer  augmentation  techniques. 
They  refer  to  about  600  publications  giving  a  very  short  evaluation  of  the 
different  techniques. 

Attempts  to  increase  heat  transfer  coefficients  go  back  at  least  to 
Joule's  [6]  work  in  1861.  Later,  similar  reports  have  been  published  by 
Whithaa  in  1896  [7]  and  by  Royds  in  1924  [8].  Joule  reported  that 
significant  improvement  in  the  overall  heat  transfer  coefficient  for 
condensation  of  steam  in  a  tube  by  single-phase  cooling  water  flowing  on 
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Che  outside  of  Che  Cube  could  be  obtained  by  wending  a  wire,  in  spirals, 
around  Che  Cube.  Wbitham  [  7]  reported  an  increase  in  efficiency  of  a  cube 
boiler  by  up  Co  18Z  when  twisted-tape  inserts  were  fixed  in  Che  tubes. 

In  our  literature  survey  we  shall  restrict  attention  to  passive 
techniques  mainly  because  the  spirally  fluted  tube  belongs  to  that 
category.  We  shall  refer  to  experimental  and  numerical  studies  for  both 
turbulent  and  laminar  flows.  The  augmentation  of  heat  transfer  for 
laminar  flows  is  most  important  because  in  that  regime  the  heat  transfer 
coefficients  are  generally  low. 

The  main  problem  is  that,  in  the  existing  literature,  for  a  given 
augmentation  technique,  different  investigators  do  not  give  their  results 
in  a  common  frame  of  reference.  Thus,  the  evaluation  of  a  technique  and, 
even  more  so,  the  comparison  of  different  techniques,  becomes  very  difficult. 

Making  a  brief  reference  to  active  techniques  we  should  state  that 
a  great  amount  of  work  has  been  published  on  this  topic.  For  example, 
the  reports  of  White  [9]  ,  Harvey  et  al  [10],  Murakami  et  al  [11],  Nagib  et 
al  [12],  Canon  and  Kays  [13],  McElhiney  et  al  [14],  Mori  et  al  [15], 

Miyazaki  [ 16]  and  Skiadaressis  and  Spalding  [17]  present  tubes  straight  or 
curved,  circular  or  square,  rotating  about  their  own  axis  or  a  parallel 
axis,  and  give  data  for  both  laminar  and  turbulent  flows  where  generally 
a  moderate  increase  in  heat  transfer  has  been  observed  mainly  for  laminar 
flows. 


Bergles  [2]  reports  improvement  of  heat  transfer  to  both  turbulent 
and  laminar  flows  for  liquids  with  surface  vibration.  Fluid  vibration  has 
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been  studied  for  both  air  and  liquids  and  reported  in  reference  [2]. 

The  studies  of  Porter  et  al  [  18],  Savkar  [19]  and  Newton  et  al  [  20] 
showed  an  impressive  enhancement  of  heat  transfer  with  electric  fields, 
particularly  in  the  laminar  flow  region,  improvements  of  at  least  100Z 
when  voltages  in  the  10  KV  range  were  applied  to  oil. 

Injection  and  suction  have  been  demonstrated  to  improve  heat  transfer 
to  both  laminar  and  turbulent  flows.  Relevant  reports  are  those  of 
Kudirka  C  2 1 1 ,  Tauscher  et  al  [22],  Kinney  [23]  and  Kinney  and  Sparrow  [24]. 
It  is  interesting  to  note ,  however ,  that  in  all  the  above  references  the 
enhancement  of  heat  transfer  is  followed  by  a  comparable  or  even  higher 
increase  of  the  friction  factor. 


The  existing  literature  on  passive  techniques  can  be  divided  into 
two  categories:  experimental  studies  and  numerical  studies.  In  the  first 
category  we  shall  focus  attention  mainly  on  results,  while  in  the  second 
we  shall  discuss  as  well  the  numerical  procedures  used  by  the  authors 
since  our  work  is  a  numerical  study.  (A  careful  investigation  of  previous 
studies,  similar  to  ours,  can  provide  most  useful  information  for  comparison 
as  far  as  the  numerical  procedure  and  the  results  are  concerned). 


aerimental  Studies 


The  role  of  rough  surfaces  in  fluid  mechanics  and  heat  transfer  has 
been  studied  by  scientists  for  a  long  time.  In  1933  Nikuradse  [25] 
reported  his  experimental  work  on  the  effect  of  roughness  on  friction 
and  velocity  distribution,  using  pipes  roughened  by  sand  grains.  In  spite  of 
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Chis  complete  experimental  work,  little  attention  had  been  focused  on  the 
study  of  the  effect  of  roughness  on  heat  transfer  until  Cope  [26],  in 
1941,  published  his  studies  on  heat  transfer  of  rough  tubes  and  Nunner 
[27],  in  1958,  reported  an  extensive  work  on  heat  transfer  to  air  using 
different  types  of  two-dimensional  roughness  elements. 


Schlichting  [28],  using  the  experimental  results  of  Nikuradse, 

showed  that  friction  factor  laws  for  rough  tubes  can  be  divided  into  three 

different  regions  depending  on  the  roughness  parameter  k  +  and  the  laminar 

s 

sublayer  thickness  <5 

la 


1)  The  hydraulically  smooth  region,  where  the  roughness  elements 
axe  within  the  laminar  sublayer  and  the  equation  of  friction 
factor  is  that  of  a  smooth  tube 

~  -  2  log(Re/f)  -  0.8  10  <  (k  /6T)  <  5 

/ f  l  8  L 

where  kg  »  roughness  height 

f  ■  friction  factor  k +  »  k 

s  s'  L 

Re  ■  Reynolds  number 


2)  The  transition  region,  where  some  of  the  roughness  elements 
are  in  contact  with  the  turbulent  bulk  flow  increasing  the 
pressure  drop  and  the  equation  of  friction  factor  is  a 
function  not  only  of  Re  but  of  ks/d^  as  well 


1 

A 


18.7 


1.74  -  2  log 


fcl’.  , 

[  4^  Re/f 


5  <  (k/6.  )  <  70 

S  L 


whar*  dh  "  hydraulic  diameter 


The  above  correlation  predicts  efficiency  always  less  than  unity  since 
fT/fs  is  equal  to  or  greater  than  unity.  The  formula  does  not  fit 
experimental  results  for  "integral"  roughnesses  since  Nunner's  experiments 
were  conducted  with  "overlapped"  roughnesses  only.  The  latter  type  of 
roughness  can  be  formed  by  wires  or  ribs  soldered  on  the  tube  surface, 
inside  or  outside,  being  only  turbulent  promoters.  They  do  not  increase 
the  heat  transfer  surface  because  of  the  high  thermal  resistance  between 


chc  smooch  surface  and  Che  roughness  elemenCs.  In  concrasC,  mcegral 
roughnesses,  such  as  Chreads,  vires,  ribs  or  grooves  forming  a  solid  body 
wich  Che  cube,  increase  Che  accive  heac  Cransfer  surface.  However,  Che 
small  scaccering  of  daca  for  boch  inCegral  and  overlapped  roughnesses 
indicaces  chac  Che  experimencal  resulCs  for  all  cypes  of  roughnesses  can  be 
represenCed  by  one  equaCion.  In  Chis  regard,  separaCe  proposals  have  been 
made  by  Dipprey  eC  al  [29]  and  Oven  ec  al  [30].  Dipprey  used  a  similaricy 
rule  in  order  Co  correlaCe,  inCerpreC  and  exCend  experimental  resulCs  for 
CurbulenC  flow  and  Che  equaCion  obCained  is:- 


1.07  +  12.7  /fg/8  (Pt1  -  1) 

1+  Sill  (5.19{k*)0*2  Pr0*44  -  8.48) 
r  s 


Oven's  equaCion  is:- 


1.07  +  12.7  /fTTFiPr’  -  1) 


+  /F78- (0.52(kJ°‘45  Pr0,8)  +  17.8  fr/8 


where  k  +  ■  k  /<S  deCermines  Che  exCenC  of  geomeCrical  influence  of  a 
S  S  L 

roughness  elemenc  in  CurbulenC  flow.  Dipprey 's  equaCion  is  presenCed  on 

Figures  1 .3-1 .6,  where  Che  efficiency  is  plocced  againsc  Che  Prandcl 

number  wich  kg+  *  30,  60,  100,  250  as  parameCers.  From  Chese  graphs  one 

can  see  Che  good  agreemenC  beCveen  Dipprey 's  Cheory  and  Che  experimencal 

resulCs  for  Che  fully  rough  region  (kg+  >  70)  and  for  Prandcl  numbers  from 

1  Co  7  as  well  as  Che  level  of  which  becomes  greacer  chan  I  for  high 

Pr  and  k  +  >  70.  However,  no  experimencal  daca  exisc  for  high  Prandcl 
s 

numbers  for  kg  >  250  and  k#  <30.  Figure  1.7  presencs  Che  efficiency  n^as 
a  funccion  of  kg+  for  differenC  Prandcl  numbers.  Ib  is  clear  chac  for  a 
given  k  +iv  increases  wich  Pr,  while  for  a  given  Prandcl  number  and 


k  +  >  70  a.  decreases  with  increasing  k+. 
s  n  s 

Burck  [33]  tried  to  explain  the  heat  transfer  mechanism  of  rough 
surfaces  emphasizing  that  it  cannot  be  expected  that  the  models  proposed  by 
Dipprey  or  Owen  would  predict  with  great  accuracy  such  a  complicated 
behaviour  over  a  large  range  of  Prandtl  numbers  and  roughness  parameters. 

His  analysis  noted  that  che  heat  transported  by  turbulence  in  the  bulk 
depends  on  the  amount  of  heat  which  can  reach  that  part  of  the  flow  trans¬ 
ported  by  conduction  through  the  thermal  boundary  layer.  So,  increasing  k 
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(namely  k  +),  the  heat  transported  to  the  bulk  flow  is  limited  by  the  thermal 
s 

resistance  of  the  thermal  boundary  layer,  while  the  skin  friction  is 
increasing,  leading  to  a  decrease  of  efficiency.  The  heat  transfer 
performance  of  rough  surfaces  is  not  so  much  influenced  by  the  shape  of  the 
roughness  elements,  but  is  determined  mainly  by  the  type  of  the  roughness 
elements,  namely  integral  or  overlapped. 

Smith  and  Goven  [34]  reported  heat  transfer  data  for  internally 
threading  pipes  using  UCON  with  Pr  -  349.  They  demonstrated  an  improvement 
of  efficiency(  compared  with  smooth  tube's  data) for  UCON  (  a  polyalkylene 
glycol)  in  contrast  to  the  behaviour  of  water  confirming  the  results  from 
Dipprey' s  equation. 

Gee  et  al  [37]  studied  another  type  of  roughness,  the  helical  rib- 
roughness,  using  air  and  water  with  three  helix  angles  (30°,  49°  and  70°) 
all  having  a  rib  pitch  (H)  to  height  ratio  of  IS  and  covering  a  Reynolds 
range  from  6000  to  65000.  That  paper,  published  in  1980,  was  Che  first 
reporting  heat  transfer  data  in  circular  Cubes  with  helically  rib-roughened 
inner  surfaces.  Gee  et  al  showed  that  helical  rib-roughness  on  the  inner 


surface  of  a  Cube  gives  greacer  efficiency  chan  Cransverse  rib  roughness, 

as  many  ocher  invescigaCors  before  have  suggesced.  The  besc  operacing 

condicion,  as  is  shown  in  Figures  1.8  and  1.9,  is  k  +  ■  5  and  helix  angle 

s 

of  abouC  50°  (kg+  is  based  on  Che  rib  heighc). 

Smich  ec  al  [38]  sCudied  Che  feaCures  of  a  smooch  pipe  where  a  spiral 
rib  was  inserCed.  They  found,  as  in  Ref .  [ 37] ,  Chac  for  wafer  Che  smooch 
Cube  is  always  more  efficienC  Chan  Che  rifled  Cube  buC  for  air,  only  for 
Reynolds  numbers  greaCer  Chan  2  x  10**.  Their  CemperaCure  profiles  showed 
chac  che  rifling  has  reduced  Che  resiscance  Co  heaC  Cransfer  in  Che  Curbulenc 
core,  which  explains  che  greacer  efficiency  of  rifled  Cubes  aC  lower  Pr 
since,  for  a  given  Reynolds  number,  che  relacive  resistance  Co  heaC  Cransfer 
in  Che  CurbulenC  core  increases  wich  decreasing  Prandcl  number.  In  concrasc, 
wall  roughness  resulced  in  somewhaC  sCeeper  dimensionless  CemperaCure 
gradiencs  in  Che  Curbulenc  core  since  Che  mosc  imporCanC  reducCion  in 
resiscance  is  aC  che  wall. 

Whice  eC  al  [39]  reporced  on  helical-rib  roughness  applied  Co  che 
oucer  surface  of  che  inner  Cube  in  an  annular  flow  conf iguracion.  They 
Cransformed  Cheir  daCa  using  an  equivalenC  diameter  in  order  to  remove  Che 
effecc  of  che  smooch  oucer  wall  and  presented  cheir  results  as  chough  boch 
walls  of  che  annulus  were  rough.  Their  Cransformed  annulus  daCa  showed  chac 
che  highest  efficiency  was  observed  aC  33°  helix  angle  wich  rib  pitch-to- 
heighc  ratio  of  8. 

Considerable  progress  in  che  commercial  production  of  Cubes  wich 
internal  roughness  has  been  made  in  recent  years  and  such  tubes  are  available 
in  che  U.S.A.  and  U.K.  as  standard  catalogue  items. 


Another  method  of  intensifying  heat  transfer  is  the  use  of  internal 
fins  in  tubes.  Such  fins  could  be  either  straight  or  helical  in  geometry. 
For  most  applications  this  approach  can  be  considered  "old  technology". 

Experimental  results  for  laminar  flows  have  been  reported  by  Marner 
and  Bergles  [ 4  03  and  by  Bergles  [41].  They  reported  a  200%  increase  in 
Nusselt  number  for  water  and  700%  for  ethylene  glycol  using  longitudinal 
fins  and  uniform  heat  flux,  as  well  as  a  230%  increase  for  ethylene  glycol 
using  spiral  fins  and  uniform  wall  temperature.  Watkinson  et  al  [42] 
studied  the  flow  of  motor  oil  (Pr  ■  180  -  450)  in  tubes  with  spiral  fins 
and  reported  an  increase  of  224%  in  Nusselt  numbers  based  on  constant 
pumping  power  comparison. 

For  turbulent  flows,  studies  have  been  reported  for  air  by  Kubanek  et 
al  [43]  and  for  water  by  Tarassof  et  al  [44^  using  the  same  type  of  tubes  for 
their  experiments.  They  developed  correlations  using  similar  parameters; 
however,  those  for  water  do  not  agree  with  the  correlations  for  air.  The 
data  for  friction  factor  were  correlated  by  an  equation  of  the  general  form: 

fe  -  c,(s/de)*  ReJ5  (H/de)d  (I) 


where  s  is  the  inter-fin  spacing,  H  the  pitch  of  the  spiral  fins,  while  the 
subscript  e  stands  for  'equivalent'.  The  different  constants  are  given  in 
the  following  table :- 


STRAIGHT  FINS 


SPIRAL  FINS 


WATER 

1.624 

AIR 

0.524 

WATER 

2.456 

AIR 

0.2184 

-0.39 


-0.29 


-0.39 


-0.  15 


.2 


-0.24 


Equation  (I)  is  valid  for  5000  <  Ree  £  75000,  0.2  ^  s/de  £  0.5  and 
9  $  H/de  <  80.  Figures  1.10  and  1.11  show  how  well  the  experimental  data 
are  correlated  by  Equation  (I),  for  both  straight  and  spiral  fins. 

The  data  for  Nusselt  number  were  correlated  by  an  equation  of  the 
general  form:- 

Nu«  c2PrkR.el  <H/d,)m  <S/d,)“  ({|JP  (j^)  (j^) 

^  W  C  (II) 

where  An  is  the  nominal  area  based  on  inside  diameter,  A£  the  total  area, 
Tb  the  bulk  temperature,  Ty  the  wall  temperature,  p  the  viscosity  and  pw 
Che  viscosity  on  Che  wall.  Again,  Che  different  constants  are  given  .in  the 
following  table 


Equation  (II)  is  valid  over  the  same  range  of  Re^,  H/de,  s/de  as 
Equation  (I). 

Figures  1.12,  1.13  and  1.14  show  the  agreement  between  the  experimental 
data  and  the  values  taken  from  the  correlation  (II).  For  both  water  and  air, 
when  the  ratio  (H/de)  decreases,  the  Nusselt  number  increases.  For  air 
flow  through  spirally  finned  tubes  Che  slope  of  Nu@  versus  (H/de)  or  (s/de) 


changes  systematically  with  Reynolds  number,  in  contrast  to  water  where  the 
slope  is  constant.  The  same  is  true  as  well  for  straight  fin  tubes  and  the 
slope  of  Nu£  versus  (s/de).  We  can  see  this  in  Figures  1.13  and  1.14  where 
another  interesting  feature  is  that  an  increase  of  (s/de)  increases  Nue  for 
water  in  contrast  to  air. 

At  constant  pumping  power  the  heat  transfer  performance  of  smooth  and 
finned  tubes  can  be  given  by  the  ratio  of  the  heat  transfer  coefficients  for 
finned  (hi,f)  and  smooth  (hi,o)  surfaces,  plotted  in  Figure  1.15.  From 
that  figure  it  is  obvious  that  for  spirally  finned  tubes  the  above  ratio 
increases  with  the  inter-fin  spacing  to  pitch  ratio  for  both  water  and  air. 
It  means  that  the  best  performance  can  be  obtained  using  fewer  fins  and 
tighter  spiralling.  For  the  straight  fin  tubes,  the  constant  pumping  power 
correlation  for  water  increases  with  the  ratio  of  inter-fin  spacing  to 
diameter,  while  for  air  it  is  almost  insensitive  to  that  ratio.  In 
references  [43]  and  [44]  the  influence  of  Prandtl  number  has  not  been 
established  since  the  range  of  Pr  used  is  very  narrow.  Kubanek  et  al  [43] 
pointed  out  that  application  of  the  correlation  (II)  to  liquids  of  higher 
Prandtl  numbers  should  give  conservative  results. 

Turbulence  promoters  such  as  helically  coiled  wires  or  twisted  tapes 
fitted  inside  tubes  are  among  the  techniques  used  to  augment  heat  transfer. 
Considerable  experimental  and  theoretical  work  has  been  published  on  twisted 
tapes  but  very  little  on  helically  coiled  wires  where  the  following  features 
are  very  interesting:- 

a)  They  produce  rotational  flow  which  results  in  the  movement 
of  heavier  fluid  elements  outward  and  lighter  ones  inward, 
improving  convection  in  the  case  of  heating. 


b)  They  introduce  roughness  elements  which  affect  the 
velocity  distribution,  the  turbulence  level  and  the 
turbulent  wall  shear. 

All  these  result  in  increased  heat  transfer  and  frictional  power  loss. 

Kumar  et  al  [45]  have  reported  experimental  results  of  forced 
convection  heat  transfer  and  frictional  factors  for  water  flowing  in  a 
vertical  tube  with  coiled  wire  turbulence  promoters  of  various  diameters 
and  pitch-to-diameter  ratios,  uniformly  heated.  Their  results  show  that,  at 
constant  Re, a  decrease  of  the  pitch-to-diameter  ratio  increases  both  the 
heat  transfer  and  friction  factor.  The  maximum  increase  in  heat  transfer  is 
of  the  order  of  2802  corresponding  to  a  pitch-to-diameter  ratio  of  one. 

Their  heat  transfer  data  were  correlated  by  the  equation:- 

Nu  -  0.175  Re0,7  Pr^Oi/d)"0*35 

within  ±7.52  irrespective  of  the  wire  diameter.  Kumar  et  al  [45]  concluded 
that  helically  coiled  wire  turbulence  promoters  increase  the  heat  transfer 
coefficient  compared  with  that  of  a  smooth  tube,  but  that  they  increase 
the  friction  factor  even  more.  Therefore,  they  can  be  used  effectively  only 
in  cases  where  the  pumping  power  is  not  important  but  reduction  in  the  size 
and  weight  is  of  primary  interest. 

A  twisted  tape  is  sometimes  inserted  in  a  circular  tube  to  produce 
swirl  flow,  thereby  to  increase  the  heat  transfer  coefficient  on  the  inside 
tube  surface.  The  tape  is  a  thin  metal  strip  twisted  about  its  longitudinal 
axis  with  a  width  equal  to  the  internal  diameter  of  the  tube.  When  the  tape 
twist  ratio  y  (■  H/d,  H  being  the  pitch  for  180°  of  rotation  of  the  twisted 
tape)  becomes  infinity,  the  tube  consists  of  two  semi-circular  straight 


Cubes  in  parallel 


Hong  eC  al  [46]  experimentally  evaluated  the  heat  transfer  performance 

of  a  laminar  twisted-tape  flow.  The  tube  was  electrically  heated  but  the 

k  5 

twisted  tape  was  isolated  from  Che  wall,  which  means  C,.  -  0  (C,.  =  -2— 

r  fm  fin  kfd 

k  is  the  thermal  conductivity  of  Che  tape  material,  k,  of  the  fluid), 
m  t 

Their  friction  factor  results, shown  in  Figure  1.16,  suggest  that  the  effects 
due  to  the  cape  twist  are  evident  only  at  large  Reynolds  numbers,  where  the 
data  tend  to  rise  above  the  reference  curve.  Figure  1.17  shows  Hong's 
results  for  Nuaselt  number  for  y  -  S.Q8  and  different  Prandtl  numbers.  It 
is  clear  that  the  swirl  motion  makes  Mu  a  function  of  Re  and  Pr,  while  for 
y  m  co  and  C£^n  >0  Mu  is  a  constant  equal  to  2.594.  Hong's  experimental 


results  can  be  correlated  by  the  equation:- 

Nu  -  5.172  !)l  +  0.005484  |jPr  (Re/y) 1  *78J 


0.7 


0.5 


(III) 


which  fits  a  very  wide  range  of  Prandtl  numbers  (Pr  *  3  -  192).  Hong  et  al 
concluded  that  the  increase  in  pressure  drop  with  tape-generated  swirl  flow 
in  the  laminar  regime  is  less  than  the  increase  in  heat  transfer  coefficient. 
The  maximum  increase  in  heat  transfer  coefficient  is  ten  times  the  empty 
tube,  while  the  corresponding  pressure  drop  is  less  than  four  times  the 
empty  tube  pressure  drop. 


Lopina  et  al  [47]  reported  an  experimental  study  on  heat  transfer  and 
pressure  drop  in  tape-generated  swirl  flow  of  single-phase  water  for  the 
turbulent  region.  They  developed  a  method  for  predicting  the  heat -transfer 
coefficient  for  swirl  flow  based  on  the  hypothesis  that  the  observed 
improvement  is  due  to  a)  the  increased  flow  path  created  by  the  tape, 
b)  the  increased  circulation  created  with  heating  due  to  centrifugal  forces 


and  c)  Che  Cape  fin  effecC.  Figures  1.18  and  1.19  show  Che  resulCs  for 
friccion  faccor  and  Nusselt  number,  while  Che  auchors  concluded  chac  a 
comparison  of  swirl  and  scraighc  flow  ac  consCanC  pumping  power  indicated 
chat  it  should  be  possible  to  obtain  improvements  of  at  least  20Z  with 
swirl  flow  of  water.  Their  additive  correlation  shown  schematically  in 
Figure  1.20  has  been  found  suitable  for  a  wide  range  of  liquid  data.  The 
spiral  and  centrifugal  convection  (subscripts  sc  and  cc  respectively)  can 
be  recognized  as  modified  forms  of  the  convention  .1  relations  for  turbulent 
flow  in  cubes  and  turbulent  free  convection.  The  fin  factor  F  represents 
the  ratio  of  total  heat  transfer  to  the  heat  transferred  by  the  walls  alone. 
Ocher  reports  and  comparison  between  experimental  and  numerical  data  for 
flows  in  tubes  with  twisted  tapes  will  be  presented  in  Part  l.2b  of  the 
literature  survey. 

Marner  et  al  [40]  reported  an  experimental  comparison  between  twisted 
tape  inserts  (with  twist  ratio  y  *  5.4)  and  spirally  finned  tubes  for  laminar 
flow  of  water  and  ethylene  glycol.  From  their  results,  shown  in  Figure  1.21, 
it  is  obvious  Chat  although  both  configurations  show  some  enhancement,  the 
spirally  finned  tube  (S.F.)  is  clearly  superior  to  tube  with  twisted  tape 
(T.T.I.).  The  subscripts  m,  a  and  o  stand  for  mean,  augmented  and  plain 
tube  respectively  while  h  represents  the  heat  transfer  coefficient. 

From  the  discussion  so  far,  it  is  clear  that  surface  roughness  and 
swirl  flow  produced  by  a  twisted  tape,  when  applied  separately,  are  among 
the  most  effective  methods  for  augmenting  heat  transfer  at  low  pumping 
cost.  Bergles  ,  Lee  and  Mimic  [48]  studied  the  case  where  those  two 
techniques  were  combined  since  it  is  reasonable  to  assume  that  such  a 
practice  would  be  supeiior  to  either  technique  used  separately.  Their 


findings  are  shown  in  Figure  1.22  where  Che  ratio  of  augmented  to  non- 
augmented  heat  transfer  coefficient  at  constant  pumping  power  is  plotted 
against  the  Reynolds  number.  The  subscripts  o,  a  and  p  mean  smooth  tube 
without  swirl  tape,  tube  modified  to  augment  heat  transfer ,  and  constant 
pumping  power  comparison  respectively.  From  Figure  1.22  it  is  clear  that 
at  low  Reynolds  the  best  choice  would  be  a  smooth  swirl  tube,  but  at 
higher  Reynolds  Che  rough  swirl  tube  is  the  top  performer.  However,  the 
authors  emphasize  that  their  comparative  data  apply  to  the  roughness  con¬ 
figuration,  tube-tape  assembly,  fluid  and  operating  conditions  used  in  their 
experiments.  Any  change  might  affect  the  form  or  the  relative  position  of 
the  curves  in  Figure  1.22. 

Compound  techniques,  like  the  one  studied  in  Ref. [48],  are  a  slowly 
emerging  area  of  enhancement  which  promises  practical  applications  since 
heat  transfer  coefficients  can  usually  be  increased  above  each  of  the 
several  techniques  acting  alone.  Some  other  studies  are  those  of  Rooyen  et 
al  [49]  for  internally-finned  tubes  with  twisted-tape  inserts,  and  Kryukov 
et  al  [50]  for  rough  cylinders  with  acoustic  vibrations. 

Other  than  twisted-cape  inserts,  there  is  a  variety  of  inserts  of 
different  types  widely  used  in  industry.  Marner  et  al  [40]  studied  two 
types  of  static-mixer  inserts:  the  Koch  and  Kenics  static-mixers.  Figure 
1.23  shows  the  variation  of  Nusselt  number  along  the  tube  apparently  for  the 
thermally  developing  region.  Curves  I  and  J  are  for  the  Koch  mixers,  while 
K  is  for  the  Kenics  mixers.  It  is  clear  that  both  types  of  insert  give 
high  Nusselt  numbers,  verifying  the  manufacturers'  reports,  such  as  Koch 
Engineering  Company  Inc.  Bulletin  [5l]  and  Chen,  Kenics  Corporation  Bulletin 
[52],  which  report  a  five-fold  increase  of  Nusselt  number  for  Koch  inserts 


and  a  two-fold  increase  for  Kemcs  inserts,  compared  with  the  smooth-tube 
values.  Figure  1.24  shows  the  variation  of  friction  factor  with  Reynolds 
number  for  both  mixers.  It  is  obvious  that  both  types  of  mixer  increase 
the  friction  factor,  this  again  being  in  fair  agreement  with  the  manufact¬ 
urers'  recommendations. 


The  most  interesting  technique  for  us,  however,  is  that  of  spirally 
corrugated  tubes.  In  the  rest  of  the  present  section  on  experimental 
studies,  we  shall  focus  on  the  existing  literature  on  spirally  corrugated 
tubes  and  mainly  on  the  results  reported  by  the  General  Atomic  Company 
who  financed  our  project  via  a  contract  from  the  U.S.  Office  of  Naval  Research. 


Kidd  [53]  has  reported  experimental  work  on  the  heat  transfer  and 
pressure  drop  characteristics  of  gas  flow  inside  spirally  corrugated  tubes. 
That  type  of  tube  was  first  studied  at  the  Oak  Ridge  National  Laboratory  by 
Lawson  et  al  [54]  whose  results  showed  that  spirally  corrugated  tubes  were 
very  effective  in  enhancing  the  heat  transfer  to  water.  Kidd  [53]  performed 
his  experiments  using  tubes  with  corrugation  spacing  (s)  to  corrugation 
depth  (L)  ratios  ranging  from  16  to  41.  His  data  for  Nusselt  numbers  could 
be  correlated  by  an  expression:- 


m  0.4 
Nu  -  aRe  Pr 


where  m  is  consistently  greater  than  0.8  obtained  for  smooth  tubes  (Dittus  - 
Boelter  correlation),  while  for  other  common  heat  transfer  enhancement 
devices,  such  as  wire  coils  or  twisted  tapes,  the  exponent  of  Re  is  usually 
near  or  lower  than  0.8.  This  means  that  corrugated  tubes  become  better 
enhancement  devices  as  the  flow  increases.  Kidd's  results  also  suggested 
chat  the  "rougher"  tubes,  those  with  the  deepest  corrugations  and  the 


smallest  s/L  ratios,  have  the  higher  value  for  the  exponent  m. 

Yorkshire  Imperial  Alloys  published  a  Technical  Memorandum  [55]  where 

they  report  design  data  for  their  roped  tubes,  shown  in  Figure  1.25,  in 

steam  condensers.  Figure  1.26  shows  the  variation  of  friction  factor  for 

Re  »  10s  and  for  a  range  of  groove  depth  (Li)  and  pitch  (H)  to  diameter  (Di) 

ratios.  It  is  clear  that  the  friction  factor  increases  when  (Li/Di)  or 

(Di/H)  increases,  the  smooth  friction  factor  taken  from  the  equation 
q  235 

f  -  0.067  Re  4  .  The  variation  of  Nusselt  number  can  be  extracted  from 

the  variation  of  Cj  in  Figure  1.27  where  Cj  *  Nu  Re  Pr^.  For  given 
Reynolds  and  Prandtl  numbers  the  value  of  Nu  can  be  calculated  from 

0*8  h 

Nu  »  Cj  Re  Pr  .  Figure  1.27  shows  an  increase  of  Cj  when  (Li/Di)  or 
(Di/H)  increases.  Ref.[55l  points  out  that  the  overall  heat  transfer 
coefficient  per  unit  pressure  drop  can  be  increased  by  30Z  to  40 Z  using 
roped  tubes  and  a  significant  overall  cost  advantage  can  be  obtained  when 
steam  is  condensed  on  the  outside  of  horizontal  roped  tubes  by  water  in 
turbulent  flow  inside  the  tubes. 

Silberman  [56]  in  a  recent  report  presented  his  experimental  results 
on  turbulence  in  helically  corrugated  pipe  flow.  The  pipe  used  in  his 
experiments  had  a  1  ft.  diameter  with  59.5°  helix  angle,  while  the  working 
fluid  was  air.  Silberman' s  purpose  was  to  explore  experimentally  the 
turbulence  mechanism  behind  the  reduction  of  the  friction  factor  for  fully 
developed  flow  in  helically  corrugated  pipes  as  compared  with  such  flow  in 
ordinary  corrugated  pipes,  other  factors  being  the  same.  Turbulence  data 
have  not  been  reported  previously  for  these  configurations. 

If  u,  v,  w  represent  the  velocities  in  the  axial,  radial  and  tangential 


directions  of  the  pipe  respectively,  Figure  1.28  shows  Silberman's  experi¬ 
mental  turbulence  intensities  compared  with  data  by  Laufer  [57]  for  fully 
developed  rectilinear  pipe  flow.  From  Figure  1.28  it  is  obvious  that  near 
the  centre  of  the  pipe  the  axial  fluctuations  are  larger,  while  the  cir¬ 
cumferential  and  radial  fluctuations  are  smaller  than  Laufer' s  data.  The 
axial  component  decreases  and  the  circumferential  component  increases 
relative  to  non-rotating  pipe  flow  further  from  the  axis.  Radial  fluctuations 
are  remarkably  smaller  than  in  Laufer1 s  case.  Figure  1.29  shows  the 
distribution  of  uw  Reynolds  stress  with  the  radius.  Silberman  concluded 
that  the  main  differences  between  non-rotating  pipe  flow  and  the  flow 
examined  in  his  report  were:- 

1)  The  defect  in  mean  axial  velocity  was  increased  and  the 
eddy  viscosity  in  the  core  region  of  the  flow  was  reduced 
by  nearly  one  half. 

2)  Turbulence  intensities  were  reduced  near  the  wall. 

3)  The  vw  correlation  was  reduced  near  the  wall. 

4)  Wall  shear  stress  and  friction  factor  were  reduced. 

This  is  consistent  with  1)  and  3). 

5)  The  uw  correlation  was  significant,  especially  near 
the  wall. 

Silberman  [58]  in  a  previous  study  had  shown  experimentally  that  for 
a  given  pipe  diameter  the  friction  factor  decreases  as  the  helix  angle 
decreases  (helix  angle  being  measured  from  the  tube  axis),  and  that  for  a 
given  helix  angle  and  depth  of  roughness,  the  friction  factor  decreases  as 
pipe  diameter  increases. 


Spirally  fluted  tubing  has  been  the  object  of  study  from  1979  at  the 
General  Atomic  Company  in  U.S.A.  by  Yampolsky,  La  Rue  and  Libby.  Ref.  [1], 
[59]  and  [60]  report  progress  made  in  the  experimental  area  on  single 
spirally  fluted  tubes,  as  well  as  the  latest  application  to  a  7-tube  bundle 
heat  exchanger.  Their  experimental  work  on  single  tubes  showed  that  the 
heat  transfer  coefficient  is  increased  without  an  increase  in  the  friction 
coefficient.  Figures  1.30  and  1.31  give  the  variation  of  Nusselt  number 
and  friction  factor  with  Reynolds  number  for  codling  or  heating  a  single-phase 
liquid  flow,  all  the  variables  being  calculated  on  a  hydraulic  diameter 
basis. 

Yampolsky  et  al  [59]  explained  the  physical  process  behind  the  above- 
mentioned  most  desirable  behaviour  of  the  spirally  fluted  tubes  as  follows: 
The  spiral  flutes  continuously  induce  rotation  of  the  flow  within  the  flutes 
and  of  the  bulk  flow  as  a  result  of  the  curvature  of  the  flutes.  When  heat 
is  transferred  inwards,  the  density  gradients  established  close  to  the  wall 
are  de-stabilizing  in  the  presence  of  rotation, affecting  the  main  source  of 
resistance  to  the  transmission  of  heat  (the  laminar  sublayer)  and  therefore 
increasing  the  heat  diffusivity.  Normally,  improvement  in  the  rate  of  radial 
heat  transport  in  a  tube  resulting  from  increase  in  the  turbulence  level  in 
the  flow  results  in  increase  of  the  momentum  loss  relative  to  the  increase 
in  heat  transfer.  However,  there  are  examples  of  instabilities  in  the 
atmospheric  boundary  layer  that  result  in  substantial  increase  of  the 
thermal  diffusivity  relative  to  the  momentum  diffusivity  (see  Ref.[6l]). 

Figure  1.30  indicates  that  the  increase  in  heat  transfer  depends  on  the 
level  of  heat  flux  as  well  as  the  direction  of  heat  flow:  inwards  or  out¬ 
wards.  Ref.  [l],  [59]  and  [60]  also  point  out  that  there  is  uncertainty  on 


Che  validity  of  the  experiments  plotted  in  Figure  1.31.  Kidd's  data  are 
in  support  of  that  uncertainty  since  his  results  show  an  increase  in  the 
friction  factor  coefficient*  opposite  to  Figure  1.31.  Figure  1.32  shows 
the  variation  of  the  Colburn  factor*  that  is  the  ratio  of  the  exchange 
coefficients  of  heat  to  momentum  with  the  Reynolds  number.  There  are  two 
interesting  features:  first,  the  positive  slope  of  the  curves  with 
Reynolds  number,  and  second,  the  level  of  the  Colburn  factor  which  is 
always  greater  than  one.  In  addition  to  the  enhancement  of  the  heat 
transfer  coefficient  relative  to  the  friction  factor  coefficient,  the 
flutes  increase  the  heat  exchange  area  also. 

As  far  as  the  outside  of  the  tube  is  concerned,  in  a  vertical  config¬ 
uration  an  increase  in  condensation  can  be  achieved.  The  reason  for  this  is 
the  helpful  geometry  of  the  tube  since  surface  tension  draws  the  condensate 
film  from  the  crests  into  the  troughs,  creating  a  very  thin  film  over  the 
major  part  of  the  crests  with,  of  course,  reduced  resistance  to  heat  flow. 
The  outcome  is  a  substantial  improvement  in  heat  transfer  over  conventional 
smooth  tubes. 

Ref.  [60]  gives  an  analytical  report  on  the  study,  design  and 
manufacture  of  a  7-tube  spirally  fluted  tube  bundle  for  a  heat  exchanger. 
Figures  1.33  and  1.34  show  the  tube  bundle  being  assembled  into  the  shell  as 
well  as  the  tubing  as  seen  through  the  shell  side  nozzle.  The  results  on 
the  heat  transfer  tests  for  this  geometry  indicate  an  enhancement  factor 
relative  to  a  plain  tube  of  1.59  for  the  tube  side  and  2.28  for  the  shell 
side.  This  is  in  addition  to  the  area  extension  of  1.6.  No  variation  was 
found  in  the  level  of  enhancement  with  heat  flux  or  heat  flux  direction, in 
contrast  to  what  was  found  from  experiments  on  single  spirally  fluted  tubes. 


shown  in  Figure  1.30.  The  results  for  the  7-tube  bundle  ere  in  agreement 
with  Curve  2  of  Figure  1.30,  where  the  enhancement  ratio  is  1.59  -  1.64. 

The  measurements  of  the  frictional  coefficients  showed  essentially  no  change 
from  the  smooth  tube  values,  which  disagrees  with  the  results  for  single 
spirally  fluted  tubes  shown  in  Figure  1.31.  This  was  not  surprising  since, 
as  we  mentioned  above,  confirming  tests  were  required  before  the  data  in 
Figure  1.31  could  be  accepted.  However,  this  does  not  alter  the  basic  fact 
that  enhancement  of  heat  transfer  is  achieved  without  a  frictional  penalty. 
This  unusual  feature  has  provided  the  stimulus  for  our  numerical  study. 

1.2b  Numerical  Studies 

Numerical  studies  of  fully  developed  laminar  flow  heat  transfer  in 
uniformly  heated  internally  finned  tubes  have  been  reported  by  Hu  et  al  [62] 
and  by  Masliyah  et  al  [63,64].  Hu  et  al  considered  fully  developed  velocity 
and  temperature  profiles  together  with  a  uniform  heat  flux  on  the  walls  and 
uniform  heat  input  per  unit  tube  length  in  axial  direction.  Masliyah  et  al 
considered  axially  uniform  heat  flux  with  peripherally  uniform  temperature. 
The  fins  were  longitudinal  of  triangular  shape  (finite  thickness)  with  high 
thermal  conductivity,  meaning  equal  temperature  for  the  wall  and  fins.  A 
finite  element  method  has  been  used  for  the  solution  of  the  momentum  and 
temperature  equations. 

Figure  1.35  shows  the  variation  of  friction  factor  with  the  number  of 
fins  with  data  taken  from  Refs. [62]  and  [63].  The  agreement  between  Hu’s 
and  Masliyah’ s  data  is  very  good.  For  constant  Reynolds  number,  the  friction 
factor  increases  with  the  number  or  the  height  of  the  fins,  reaching  values 
which  are  50  times  higher  than  for  the  smooth  tube  value. 
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Figures  1.36  and  1.37  show  Che  variadon  of  Che  dimensionless 

T-Tt* 

cemperacure  <J>  =  (Q  being  Che  heaC  inpuC  per  unic  Cube  lengch  (J/ms)  , 

the  thermal  conductiviCy  of  the  fluid)  wich  radial  posicion  along  Che  middle 
of  Che  inCer-fin  spacing,  for  various  numbers  of  zero  thickness  fins  and 
two  fin  heights  (&)•  These  figures  show  chat  near  the  wall  (r  ■  1)  $  increases 
wich  che  number  of  fins,  while  at  Che  Cube  centre  (away  from  Che  fins)  it 
increases  for  N  <  8  and  decreases  for  N  >  8.  For  i  =*  0.4  and  especially 
for  low  values  of  N,  the  shape  of  $  is  not  very  much  different  from  chat  of 
a  smooch  Cube,  while  for  l  -  0.8  and  N  £  16  Che  fins  are  so  close  to  each 
ocher  ChaC  they  act  as  an  artificial  Cube  where  Che  fluid  velocity  becomes 
nearly  zero.  Two  regions  are  created,  Che  fin  region  from  che  tube  wall  to 
Che  fin  Cips  and  Che  core  region  from  the  fin  tips  Co  Che  Cube  centre.  In 
Che  case  where  Che  fins  have  a  finite  thickness  (6  -  3°,  half  fin  angle) 
che  radial  distribution  of  $  along  che  middle  of  Che  inter-fin  spacing, 
shown  in  Figure  1.38,  has  some  interesting  features.  Curve  4  shows  Chat 
for  l  ■  0.6  there  is  a  region  between  the  fins  where  $  becomes  nearly 
constant,  while  Curve  S  indicates  that  for  l  ■  0.8,  obvious  in  Figure  1.37 
also,  che  maximum  of  $  no  longer  occurs  ac  Che  Cube  axis  but  moves  Cowards 
Che  fin  region. 


The  variaCion  of  Nusselt  number  based  on  che  inside  diameter  is  given 
in  Figure  1.39.  It  is  clear  thac  the  improvement  of  Nu,  compared  wich  che 
smooch  cube  values,  in  some  cases  can  be  as  high  as  forty-fold.  Figures 
1.35  and  1.39  indicate  that  Che  longitudinal  fins  are  less  efficient  chan 
Che  smooch  surface  for  laminar  flow  in  contrast  to  spiral  fins  (see  Ref.[40l) 
Figure  1.39  also  shows  ChaC  Nusselt  number  is  a  sCrong  function  of  the  fin 
height,  fin  thickness  and  number  of  fins  and  for  a  given  fin  configuration 
an  optimum  fin  number  exists. 
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The  first  numerical  study  to  predict  the  performance  of  tubes  with 
straight  inner  fins  for  turbulent  air  flow  was  conducted  by  Patankar  et  al 
[65].  They  have  studied  the  fully  developed  flow  in  a  finned  tube  with 
uniform  heat  flux  and  uniform  wall  temperature  at  any  cross  section;  they 
also  considered  the  flow  in  an  annulus  with  constant  heat  flux  and  fins  on 
the  inner  tube,  the  outer  tube  being  smooth  and  adiabatic.  The  equations 
were  solved  in  a  cylindrical-polar  co-ordinate  system  (r,9,z)  with  (r,9) 
mapping  the  cross-stream  section  and  z  following  the  axis  of  the  tube. 


Various  turbulence  models  were  examined  while  the  one  finally  adopted 
by  the  authors  was  an  algebraic  model  involving  the  mixing  length.  Because 
the  tube  wall  and  the  fin  surface  simultaneously  affect  the  mixing  length 
at  any  point  on  the  cross-stream  section,  the  mixing  length  was  taken  from 
the  equation: 


1  1 

r"  r 

p 
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where  was  the  mixing  length  for  a  pipe  without  fins  and  the  mixing 
length  for  the  inter-fin  spacing  which  was  likened  to  a  parallel  plate 
channel,  JLp  and  were  represented  as  the  product  of  a  Nikuradse-type 
mixing  length  L  and  the  Van  Driest  damping  factor  DF: 


V  •  <DF>pS 

lc  -  (0F)cl.c 


The  turbulent  viscosity  was  given  then  by  the  equation 


Ut  -  Ql 2 
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w  being  the  axial  velocity. 

The  solution  of  the  equations  (continuity  and  momentum)  was  obtained 


via  finite  differences,  with  the  momentum  equations  being  solved  first  and 
then  used  as  input  to  the  energy  equation. 


Figure  1.40  shows  the  variation  of  local  heat  transfer  coefficient 
along  the  fin  height  (h^),  while  Figure  1.41  shows  the  variation  of  local 
heat  transfer  coefficient  along  the  tube  wall  (h^)  from  the  fin  base 
(0/@o  -  0)  to  che  middle  of  the  inter-fin  spacing  (9/3Q  ■  1).  It  appears 
chat  the  assumption  of  a  uniform  heat  transfer  coefficient  is  a  better 
approximation  for  the  tube  wall  than  for  the  fin  surface.  For  the  case  of 
an  annulus,  Patankar  et  al  used  the  same  turbulence  model  as  for  the 
finned  tube  with  the  replacement  of  by  two  mixing  lengths,  one  taking 
account  of  the  outer  tube  and  one  of  the  inner  one .  For  both  pipe  and  annulus 
the  fins  were  found  to  be  a  more  effective  transfer  surface  than  the  heated 
wall,  on  a  unit  area  basis.  It  would  be  desirable,  of  course,  to  extend 
the  numerical  study  to  higher  Prandtl  numbers  and  spiral  fins  for  both 
laminar  and  turbulent  flows. 

Date  and  Singham  { 66]  reported  a  numerical  study  of  the  laminar  flow 
in  Cubes  containing  twisted  capes.  .  They  first  introduced  the  ratio  Re/y 
(y  being  the  twist  ratio)  which  is  similar  to  Dean  number  in  curved  pipe 
flow  and  accounts  for  the  centrifugal  force  effect,  in  the  calculation  of 
friction  factor.  Their  numerical  results  did  not  take  account  of  the 
thickness  of  the  cape  which  is  not  negligible  if  the  tube  diameter  is  small. 
Date  and  Singham  correlated  their  numerical  results  by  the  following 
equations: 

[42.23 

38.4  (Re/y)0,05 
c  (Re/y)0,3 


Re/y  <  6.7 
6.7  $  Re/y  4  100 
Re/y  >  100 


where  c  -  8.820ly  -  2. 1 193  y2  +  0.2108  y3  -  0.0069 y*. 


Date  [67]  reported  a  numerical  study  of  a  uniform-property  flow  in  a 
tube  containing  a  twisted  tape  for  both  laminar  and  turbulent  regimes.  He 
solved  a  set  of  equations  by  adapting  an  existing  finite  difference 
procedure  for  two-dimensional  elliptic  equations  to  predict  friction  factor 
and  heat  transfer  coefficients.  He  used  a  co-ordinate  system  in  which  the 
angular  co-ordinate  was  measured  always  from  the  surface  of  the  twisted  tape, 
that  is  a  rotating  cylindrical  polar  co-ordinate  system  (r',0',z')  which 
was  related  to  stationary  system  (r,0,z)  by  the  equations: 

r'  -  r 
z'  •  z 

0*  -  9  |  z 

The  positive  sign  of  z  implies  anti-clockwise  rotation  of  the  tape 

n 

as  z  increases,  z  and  z'  being  in  the  axial  direction  and  6  and  6'  in  the 

clockwise  direction.  The  equations  solved  were  those  for  the  axial  vorticity 

(w),  the  stream  function  (\|j),  the  momentum  equation  for  the  axial  velocity 

(V  )  and  the  energy  equation, 
z 

Figure  1.42  shows  the  friction  factor  variation  with  the  Reynolds 
number  where  the  experimental  data  are  from  Hong  and  BergLes  [46]  and  the 
numerical  data  are  from  Date  and  Singham  [66]  .  Date  (67j  predicted  the  same 
behaviour  for  the  friction  factor  as  Ref. [66].  In  Figure  1.43,  Date's 
results  for  Nusselt  number  for  laminar  flow  are  compared  with  Hong's  [46] 
experimental  data  correlated  by  Equation  (III).  Date's  data,  in  contrast 
to  Hong's  results,  show  a  separate  influence  of  Prandtl  on  Nusselt  number. 
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The  difference  is  substantial  and  the  strong  Prandtl  number  effect  for 
cf^Q>0  predicted  by  Date  needs  experimental  verification. 

Figures  1.44  and  1.4S  show  the  variation  of  Nu  with  Re  for  various 

twist  ratios  and  Prandtl  numbers.  For  a  fixed  Re,  Nu  increases  as  y 

decreases  or  Pr  increases.  Both  figures  indicate  that  for  y  <  °°,  when 

secondary  flow  exists,  Nu  depends  on  both  Re  and  Pr.  Another  feature  of  the 

flow  is  that  the  increase  in  Nu  increases  as  Re  increases  and  this  can  be 

explained,  partly,  by  the  fact  that  in  the  energy  equation  there  is  an 

extra  convection  term  due  to  the  axial  velocity  V  which  is  large  at 

1“  zj 

high  Re. 


The  predicted  friction  factor  is  plotted  in  Figure  1.46.  It  is  clear 
that  Date's  computations  under-predict  the  experimental  data,  though  the 
trends  are  in  agreement.  Date  ascribes  the  modest  agreement  to  the  low 
value  of  u  ,,  predicted  by  the  (k"£)  turbulence  model  where  the  constants, 

6CI 

taken  from  Ref. [68],  although  quite  general  for  flows  where  the  velocity 
gradients  are  significant  only  in  one  direction,  are  inadequate  for 
predicting  the  twisted  tape  flow  characteristics. 
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Figure  1.47  shows  the  distribution  of  Nu  with  Re.  Again,  the 
experimental  data  are  under-predicted,  although  the  trends  are  in  agreement. 
One  could  suppose  that  if  the  friction  factor  data  by  some  means  can  be 
corrected,  then  so  would  the  Nu  data.  Date  in  his  report  argues  that  the 
disagreements  between  predictions  and  experimental  data  can  be  cured  by 
using  a  different  turbulence  model.  A  first  step  in  that  direction  could 
be  the  application  of  a  simplified  Algebraic  Stress  Model  (ASM)  proposed 
by  Gibson  and  Launder  [69]  . 

It  has  been  well  established  that  secondary  flow  can  significantly 
enhance  heat  transfer.  Secondary  flows  are  also  generated  by  twisted  pipes. 
Masliyah  et  al  [70,71]  have  reported  recently  their  study  on  laminar  flow 
through  twisted  square  tubes.  They  solved  numerically  in  a  rotating  frame 
of  reference  the  Navier-Stokes  equations  in  the  stream  function-vorticity 
form.  The  rotating  co-ordinate  system  was  preferred,  as  in  Date's  [67] 
report,  in  order  to  convert  the  problem  to  a  2-D  problem.  Some  validity 
tests  on  the  numerical  procedure  were  made,  such  as  the  case  of  the  straight 
square  tube  (by  setting  H  ■  1000,  H  being  the  dimensionless  length  of  the 
tube  over  a  rotation  of  it  radians)  where  the  friction  factor  was  found  with 
an  error  of  0.1Z.  Further  mesh  refinement  tests  indicated  that  finer  grids 
are  needed  for  low  H  (H  -  2.5)  at  high  Re  (Re  >  400),  where  the  central- 
difference  scheme  fails  to  give  accurate  solutions  and  other  schemes  should 
be  used,  such  as  those  proposed  by  Spalding  [72],  Raithby  et  al  [73]  and 
Raithby  [74] . 

It  has  been  found  that  the  swirling  motion  did  not  alter  the  axial 
velocity  profile «  in  conformity  with  White’s  [9]  report  for  a  circular 
tube.  Masliyah  et  al  reported  that  for  low  H  and  high  Re  the  swirling 


motion  is  not  detectable  in  the  core  region  while  it  is  strong  in  the 
annular  region;  this  is  contrary  to  the  case  of  low  H  but  low  Re.  Figure 
1.48  shows  the  variation  of  friction  factor  with  Re  for  different  values  of 
H  from  which  it  is  clear  that  the  swirling  motion  affects  the  friction  factor 
only  for  Re  >  100,  while  for  H  <  20  all  the  curves  lie  above  the  reference 
curve  for  the  straight  square  tube.  Ref.[70]  also  indicated  that  as  H 
decreases,  the  axial  velocity  profile  changes  from  that  of  a  straight 
square  tube  to  that  of  a  straight  circular  tube. 

The  heat  transfer  characteristics  arising  in  the  twisted  square  tube 
were  presented  in  Ref.[7l]  where  the  cases  of  uniform  and  non-uniform  wall 
temperature  were  considered.  The  situation  where  opposite  walls  had  the 
same  temperature  was  found  to  give  the  best  heat  transfer  performance 
where,  for  H  »  2.5,  the  overall  Nusselt  number  showed  an  increase  of  122% 
over  a  straight  square  tube.  Masliyah  et  al  concluded  that  a  twisted  square 
tube  configuration  can  be  useful  when  several  fluids  at  different  temper-' 
atures  have  to  be  heated  or  cooled  to  different  extents. 


Concluding  Remarks 

In  conclusion  we  may  say  that  the  spiral  fins  and  the  twisted  tape 
inserts  (for  the  laminar  region),  the  integral  roughness,  the  flutes  and 
some  types  of  static  mixers  are  among  the  most  effective  (efficiency  >  1) 
enhancement  techniques  when  applied  to  inner  surfaces. 

However,  many  factors  enter  into  the  final  decision  to  use  a  heat 


transfer  augmentation  technique:  heat  duty  increase,  surface  area 
reduction,  pumping  power  requirements,  initial  cost,  maintenance  cost, 
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safety,  reliability,  etc.  The  heat  transfer  augmentation  techniques 
discussed  here  should  be  analysed  further,  based  on  various  performance 
evaluation  criteria,  such  as  those  by  Bergles  et  al  [77]  and  Shah  [  78] . 

While  most  of  the  above-mentioned  publications  refer  to  research 
studies,  the  commercial  application  of  this  "heat  transfer  enhancement 
technology"  continuously  grows.  This  is  evident  from  the  enormous  patent 
and  trade  literature.  In  the  U.S.A.  alone,  nearly  500  patents  related  to 
this  technology  have  been  issued  (Bergles,  Nelson  and  Webb  [75]),  while 
hundreds  of  firms  advertise  such  heat  transfer  promoters  (see  Junkan  and 
Webb  [76]). 


The  Problem  Considered,  Present  Contribution  and  Objectives 


The  geometry  under  consideration  is  that  of  a  spirally  fluted  tube, 
shown  in  Figure  1.1.  Tests  have  shown  [1,  59,  60]  that  for  a  fixed 
Reynolds  number  these  tubes  give  rise  to  surface  heat  transfer  coefficients 
in  turbulent  flow  up  to  three  times  the  smooth  tube  values  without  any 
corresponding  increase  in  friction  factors.  This  discovery  naturally 
raises  questions  of  what  flow  mechanism  produces  this  highly  desirable  and 
unusual  behaviour,  perhaps  unique  in  the  heat  transfer  literature  for  it 
has  been  consistently  found  that  heat  transfer  promoters  enhance  friction 
factors  by  at  least  the  same  proportion. 


La  Rue  [82]  is  undertaking  a  detailed  hot-wire  study  which  should 
provide  a  good  deal  of  insight  into  the  flow  structure,  while  the  aim  of  the 
present  research  was  to  develop  and  apply  a  computational  procedure  for 
calculating  the  flow  and  temperature  fields  in  fully  developed  conditions 
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through  this  type  of  tube. 

The  principal  objectives  of  the  research  were: 

a)  The  development  and  application  of  a  numerical  solution 
scheme  for  laminar  and  turbulent  flows  based  on  finite- 
volume  discretization  of  the  highly  complex  partial 
differential  continuity,  momentum  and  energy  equations, 
and  an  efficient  algorithm  for  the  solution  of  the 
resulting  set  of  algebraic  equations. 

b)  The  application  of  advanced  turbulence  models  in  the 
numerical  solution  scheme  to  represent  the  effects 
of  turbulence. 

The  contribution  of  a  computational  study  towards  the  understanding 
of  the  flow  through  spirally  fluted  tubes  is  valuable  because  it  can  provide 
a  far  more  detailed  mapping  of  the  flow  properties  than  any  experimental 
study.  It  also  permits  a  parametric  study  of  the  flow  based  on  variations 
of  the  detailed  geometry  of  the  tube,  exploration  of  the  connection  between 
changes  in  the  surface  performance  and  changes  in  the  interior  flow  pattern 
and  thus  optimization  of  the  tube  design.  The  experimental  work  needed  for 
optimization,  while  notionally  possible,  would  be  massive  enough  to  make 
the  task  practically  impossible. 

Some  of  the  results  presented  below  have  been  published  in  Barba, 
Bergeles,  Demirdzic,  Gosman  and  Launder  033] ,  in  Barba,  Bergeles,  Gosman 
and  Launder  {84}  and  in  Barba,  Gosman  and  Launder  [85]  . 


1 . 4  Organization  of  Thesis 

The  thesis  is  divided  into  six  chapters. 

I 

Chapter  1  presents  a  detailed  literature  review  of  the  experimental 
and  numerical  work  in  the  field  of  heat  transfer  enhancement  technology. 

Furthermore,  the  objectives  of  the  research  programme  are  discussed.  ( 

Chapter  2  deals  with  the  computational  procedure  for  the  laminar  flow 
calculations  focusing  attention  on  the  chosen  co-ordinate  system,  the  ■ 

partial  differential  equations  describing  the  flow  through  a  spirally  fluted 
tube,  the  boundary  conditions  and  the  adoption  and  solution  of  the  equations 
by  the  computer  program.  Details  of  the  grid  generating  computer  program, 

I 

the  derivation  of  the  equations  and  the  two-stage  pressure  correction 
(PISO)  used  in  the  computational  procedure  are  presented  in  Appendices  1, 

2  and  3  respectively. 

Chapter  3  concerns  itself  with  the  presentation  of  the  laminar  flow 
numerical  results  and  the  validation  tests  leading  to  the  acceptance  of  the 
correctness  of  these  results.  A  parametric  study  of  the  results  is 
presented  for  both  velocity  and  temperature  fields  and  conclusions  are 
discussed  concerning  results  and  computational  procedure. 

I 


Chapter  4  presents  the  turbulent  flow  computational  procedure,  with 
attention  directed  mainly  towards  the  equations  describing  the  flow  and 
the  turbulence  modelling.  Details  of  their  application  into  the  computer 
code  are  given  in  Appendix  5  where  the  final  version  of  the  computer  program 
is  contained,  accompanied  by  a  detailed  description,  while  Appendix  4 


includes  the  derivation  of  the  equations  for  the  simplified  algebraic 
stress  model  applied  into  the  core  region  of  the  flow. 

Chapter  5  is  similar  in  structure  to  Chapter  3,  dealing  with  the 
turbulent  flow  computational  results. 

Finally,  Chapter  6  summarizes  the  main  conclusions  from  the  present 
research,  and  recommendations  are  given  for  any  further  theoretical  work 
considered  appropriate . 
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Fig  MO  Friction  factors  for  straight  fin  tubes 
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Fig  III  Friction  factors  for  spiral  fin  tubes 


« •  ■»  —  <  -  * 


Effect  of  infer -fin  spacing  on  the 
Nusselt-Prandtl  modulus  for  straight 
fin  tubes  (air) 


Average  constant  pumping  power  performance 
ratio  correlation  for  spiral  fin  tubes 


Fig  1*18  Friction  factors  for  isothermal 
and  heated  conditions 
(  f  =4f.() 


104  105  3*105 

Re 


Fig  M9  Comparison  of  heat-  transfer 

data  for  insulated  and  integral 
twisted  tapes 


Ratio  of  augmented  and  nonaugmented 
heat  transfer  coefficients  at  constant 
pumping  po*er 


Fig.  1  24  Friction  factor  for  Koch  and 
Kenics  static -mixer  inserts 


Lj  Infernal  groove  depfh 
Dj  Infernal  fube  diamefer 

Esfimafed  infernal  friction  factors  for  a  range  of  fube 
profiles.  (Applicable  at  Reynolds  number  =  100000) 


0  0-010  0-020  0-030  0-040 


Lj  .Internal  groove  depth 
Dj  Internal  tube  diameter 


Estimated  values  of  the  constant  C1 


Groove  pitch 


1000 

800 


52 


i/l  "O 
"O  41 

8  0  3 

o  C  — 

o'  >>'*- 

o  41  _ 

o: 

sfb*>  2 

S  flu  O  QJ 

■O  4-  X 

£=  l_l 

i  a  c_ 

c  o 

„  ■*- 

o  e 

g  t/i  tl  t_ 

-a  a  at  «/) 

fr'  "o  5  "g  .2 

§.332 

at 

QC 

tNI 

o  nn 

s  - 


q^  =  -  jopoj  ujnqio^ 


</> 

"a 
■*  c 
2  >» 
»  OJ 

V/>  QJ 


at 

xi 

E 

£  at 
xi 
(/>  3 
"O  ■*” 
,  o  -o 

M 

at  3 

cr  c 


4uap|^ao3  uo(4DU4  Apoow 


5  i 

a  i  5  « 

wn  x  ^  S 

r*<  3  <*.  01  ^ 

o  ^  D  o 

W  '  i  J  I  S  O  O 

s  _  _  o  _  "5  H 

o  »C  '  t-  T  3  .  f 

w  as  s  un  x  o>  3  5  ® 
_  (x  m  «»  O  I  > 


at  i/i 

-2  c 
■a  aj 


a  <_ 
_g  a 

_  at 

W  HQ 

.2  3 


\  = 


o  o  o 

O  n* 


7-o Jd/ nN  snjnpouj  4’95snN 


FIG.  1.33  TUBE  BUNDLE  BEING  ASSEMBLED 


•  -  -  •'  ■*-  J'.-t'.  c. 


i 


INTO  THE  SHELL 
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Fig  1.37  Dimensionless  temperature  variation  in  radial 
riirprtion  for  1  =  0*8 
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CHAPTER  2 

2.  THE  LAMINAR  FLOW  PROCEDURE 


2.1  Introduction 


At  the  beginning  of  the  project  available  experimental  data  for  the 
flow  through  a  spirally  fluted  tube  were  confined  to  the  turbulent  regime. 
Nothing  was  known  about  the  tube's  behaviour  at  fairly  low  Reynolds  numbers 
where  laminar  flow  is  expected  to  be  present.  There  seemed  at  least  the 
possibility  that,  in  the  laminar  flow  regime,  some  of  the  benefits  found  in 
turbulent  flows  could  also  apply.  Thus,  the  computational  procedure 
developed  for  the  spirally  fluted  tube  has  begun  by  studying  the  laminar 
regime . 

Nothing  was  known,  too,  about  the  detailed  flow  pattern  in  the  vicinity 
of  the  flutes.  However,  it  was  expected  that  friction  and  heat  transfer 
should  be  affected  by  what  is  happening  in  the  immediate  vicinity  of  the  tube 
wall  (i.e.  around  the  flutes)  since  the  remarkable  behaviour  of  the  spirally 
fluted  tubes  did  not  appear  to  be  fully  explained  by  the  enhanced  turbulent 
mixing  in  the  core  region  induced  by  swirl  in  the  presence  of  a  radial 
density  gradient  [l,  59,  60 ] .  So,  a  numerical  procedure  could  be  very  useful 
for  it  could  produce  detailed  predictions  of  the  highly  complex  flow  structure 
near  the  wall  which  would  be  very  difficult  to  make  exp.er  ^mentally . 

The  general  flow  equations  for  analyzing  the  flow  in  a  spirally  fluted 
tube  with  arbitrary  shaped  flutes  have  been  derived  by  I.  Demirdzic  and  a 
detailed  description  of  r.he  procedure  followed  is  presented  in  Appendix  2. 

The  choice  and  optimization  of  the  grid,  the  final  form  of  the  equations 
solved,  the  boundary  conditions  applied,  the  adaptation  and  solution  of  the 
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describing  equations  by  the  computer  program,  the  structure  of  the  computer 
program  for  solving  the  laminar  flow  regime  and  the  computational  procedure 
followed  are  discussed  in  the  present  chapter. 


2.2  The  Co-Ordinate  System 

The  flow  field  is  analyzed  over  the  region  shown  in  Figure  2.1.  This 
represents  a  part  of  the  tube's  cross-section  containing  one  complete  rib, 
being  the  smallest  sector  of  flow  symmetry.  The  solution  domain  is  bounded 
on  the  outer  surface  by  the  tube  wall  and  at  the  inner  surface  by  a  circular 
boundary  of  radius  R#  whose  choice  has  been  decided  after  tests  presented  in 
Chapter  3.  The  grid-coverage  of  the  complete  cross-stream  plane  of  the  tube 
is  shown  in  Figure  2.1a. 

The  solution  domain  in  the  cross-sectional  plana  is  mapped  by  the 
orthogonal  co-ordinate  lines  £  and  n  shown  in  Figure  2.1.  Details  of  the 
computer  program  creating  the  grid  as  well  as  the  listing  of  the  computer  code 
can  be  found  in  Appendix  I.  Attention  has  been  focused  on  the  study  of  tubes 
with  flutes  of  sinusoidal  profile.  The  radius  of  the  tube  wall  as  a 
function  of  angular  position  a  is  given  by  the  equation: 

Rw  -  Rb  ♦  hcos(2ra/0)  (2.1) 

where  8  is 'the  sector  angle  (n  being  the  number  of  flutes  around  the  cir¬ 
cumference  of  the  tube)  and  h  the  amplitude  of  the  rib  (i.e.  the  maximum 
radial  departure  of  the  tube  radius  from  the  mean  radius  R^).  The  tube  wall 
(equation  (2.1))  coincides  with  a  line  of  constant  n •  while  in  the  vicinity 
of  the  wall  the  other  constant-n  lines  imitate  with  diminishing  amplitude  the 
undulation  of  the  wall.  The  local  radius  r  of  a  constant -n  line  is  given  by: 


■I  hlfcL* 


’  »**  .*  A  ■**  •' 


■  -  1  -  * 


(2.2) 


r  «  R  +  b  cos(2uQ/0) 
o  o 

where  Rq  is  Che  assn  radius  of  a  co-ordinate  lias  of  constant  n  (ranging 
from  at  tha  wall  to  R#  at  the  inner  boundary).  The  quantity  hQ/h  is  a 
prescribed  function  of  RQ/R^  which  initially  was  chosen  to  decrease  linearly 
from  1  at  the  tube  wall  to  zero  at  radius  R^.  However,  the  resulting  grid, 
shown  in  Figure  2.2,  gave  a  quite  poor  coverage  of  the  solution  domain 
resulting  in  low  numerical  accuracy  and  alow  convergence  of  the  computational 
procedure . 

It  was  found  that  the  best  distribution  of  nodes,  for  the  laminar  flow 
computations,  could  be  achieved  by  reducing  hQ  to  zero  more  rapidly  (i.e.  by 
R0/R^  ■  0.85  •  R^/R^)  so  that  over  the  majority  of  the  solution  domain  the 
constant-n  lines  were  circular  arcs  forming  a  cylindrical-polar  mesh.  Thus, 
a  composite  curvilinear /cylindrical-polar  grid  (Figure  2.1)  is  formed  and 
this  grid  has  been  adopted  for  all  the  results  discussed  later.  The  radius 
Rm  is  the  matching  radius  between  the  two  -regions  of  the  mesh;  its  value 
was  taken  as  0.85  R^  after  tests  reported  in  Chapter  3. 

The  second  family  of  co-ordinate  lines,  constant-5  lines,  is  constructed 
numerically  orthogonal  to  the  constant-n  lines.  Along  the  east  and  west 
boundaries  (trough  positions)  as  well  as  in  the  middle  of  the  solution  domain 
(crest  position)  the  constant-5  lines  are  radial  lines. 


The  third  co-ordinate  £  proceeds  in  the  axial  direction,  shown  in 
Figure  2.3,  following  the  spiralling  of  the  flutes,  while  the  fully 


developed  flow  condition  is  applied  with  respect  to  this  co-ordinate,  i.e. 


The  flow  and  normalized  temperature  fields  are  described  in 


term*  of  the  independent  variables  £  and  ru  However,  in  order  to  obtain 
the  most  suitable  form  of  the  momentum  equations  for  numerical  solution 
(see  Appendix  2),  the  latter  have  been  written  in  terms  of  the  velocity 
component  in  the  direction  z  of  the  tube-axis  rather  than  in  the  direction 
£  of  the  spiral. 


2.3  The  Describing  Equations 

The  dependent  variables  chosen  for  the  laminar  flow  computations  of 
the  spirally  fluted  tube  are:  the  static  pressure  p,  the  velocity  components 
U,  V  and  W  in  the  £,  n,  z  directions  respectively  and  the  normalized 
temperature  0.  The  equations  describing  the  fully  developed  laminar  flow 
and  giving  the  distribution  of  the  above  variables  over  the  solution  domain 
are  presented  below: 

Continuity 

t? <t,u>  *  h  <“v>  ■  If  <v“>  *  nr  <v“>  (2.3) 


^-Momentum 
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where  e_,  e  ,  e  are  the  base  vectors,  h_,  h  ,  h  their  magnitudes,  H  is 

s  n  v  c 

the  spiral  pitch,  Pr  the  Prandtl  number  of  the  fluid  and  T^^  a  reference 
temperature  at  some  interior  node  whose  choice  does  not  affect  the  normal¬ 
ized  temperatures,  heat  fluxes  or  in  an;  way  the  results  from  the  energy 
equation. 

hC  3Tref 

The  term  — *■ -  of  the  energy  equation,  using  equation  (A2.46)  of 

b  35 

Appendix  2  and  applying  the  conservation  of  energy  principle,  takes  the  form: 

l  ,!2±. 

b  85  3z  me 

P 

where  q"  is  the  heat  input  to  the  tube  per  unit  surface  area,  P  the  perimeter 
of  the  fluted  tube,  A  the  total  mass  flow  rate,  and  Cp  the  fluid  specific 
heat  at  constant  pressure.  Details  of  the  derivation  of  the  above  set  of 
equations  can  be  found  in  Appendix  2. 


2.4  The  Boundary  Conditions 

The  boundary  conditions  are  shown  in  Figure  2.4.  At  the  north 
boundary  of  the  solution  domain  which  coincides  with  the  tube  wall,  all  the 
velocity  components  are  set  to  zero  and  a  uniform  heat  flux  is  applied,  i.e: 

U  ■  0,  V  ■  0,  W-0,““^b 

where  kf  is  the  thermal  conductivity  of  the  fluid.  Although  the  computations 
could  have  been  extended  to  the  tube  axis,  this  was  not  done  for  it  was 
felt  that  the  effect  of  the  flutes  would  not  carry  to  the  centre.  Computing 
times  and  storage  could  be  saved  by  imposing  at  some  radius  R  the  require- 


Dane  of  solid-body  rotation  for  the  circumferential  velocity,  zero  value 
for  the  radial  velocity,  the  parabolic  profile  appropriate  to  fully- 
developed  pipe  flow  under  a  prescribed  pressure  gradient  for  the  axial 
velocity  and  a  fixed  heat  output  for  the  energy  equation,  i.e: 

dU  U  ..  „  dW  Ra  do  dG  “a  Q' 

dr  ?  ’  V"°*  d?*Iyd7*  d?  -  T  'VRa.kf 

m  f 

e 

where  Q*  is  the  heat  input  per  unit  length  of  the  tube  and  m^  is  the  mass 
flow  rate  in  the  region  r  4-  (calculated  from  the  analytical  solution  of 
the  axial  velocity).  The  results  confirmed  the  appropriateness  of  this 
treatment . 

The  cyclic  character  of  the  flow  from  one  flute  to  the  next  is  imposed 
by  applying  the  values  of  the  dependent  variables  at  the  east  boundary 
equal  to  those  at  the  west  boundary  and  vice  versa.  In  addition,  in  the 
computer  program,  namely  in  sub-routine  LISOLV  whose  function  is  simply  to 
solve  a  set  of  linear  algebraic  equations  (whose  coefficients  form  a  tri¬ 
diagonal  matrix)  produced  by  the  finite-volume  discretization  of  the 
partial  differential  equations  (2.3)  -  (2.7),  a  special  section  has  been 
added  to  take  care  of  the  cyclic  nature  of  the  flow.  Details  of  this 
treatment  can  be  found  in  Section  2.5  c. 


Discretization  and  Solution  of  the  Equations  by  the  Computer  Program 


The  computer  program  used  has  been  developed  from  the  curvilinear 


orthogonal  TEACH  code  of  Antonopoulos  et  al  [86]  developed  originally  for 
the  study  of  flow  over  tube  banks.  This  procedure  incorporates  a  finite- 
volume  discretization  of  the  equations  presented  in  Section  2.3  in  the  £-n 


plan*  and  in  which  Che  velocity  components  and  scalar  quantities  p  and  @ 
(for  the  turbulent  flow  computations,  the  turbulent  energy  k  and  its  rate 
of  dissipation  e  as  well)  are  evaluated  on  a  staggered  mesh.  The  £-n 
plane  is  sub-divided  by  the  constant-n  and  constant-^  lines  into  many 
curvilinear  cells  forming  the  control  volumes  on  which  the  pressure, 
temperature  and  axial  momentum  equations  (as  well  as  the  equations  for  the 
turbulent  energy  k  and  its  dissipation  rate  e  for  the  turbulent  flow 
calculations)  are  solved,  see  Figure  2.5.  The  D  and  V  velocity  nodes  are 
located  in  the  middle  of  the  scalar  control  volume  faces  while  their 
control  volumes  are  formed  by  passing  constant-r|  or  constant-^  lines 
through  the  scalar  nodes  surrounding  the  velocity  in  question.  This 
formation  of  a  'staggered  grid'  has  the  benefit  that  the  variables  U,  V 
and  p  are  located  in  such  a  way  that  the  pressure  differences  which  drive 
the  velocities  u  and  v  are  obtained  without  interpolation.  Moreover,  the 
velocities  arc  stored  in  positions  where  convective  fluxes  of  scalar 
quantities  have  to  be  computed. 

In  the  following  paragraphs  attention  is  focused  on  the  finite -volume 
discretization  of  the  partial  differential  equations  and  the  solution  of 
the  resultant  algebraic  equations  by  the  computer  code. 


2.5  a  Formulation  and  Organization  of  the  Finite-Difference  Equations 
The  partial  differential  equations  (2.4)  to  (2.6)  are  in  a  quite 


compact  form.  Substituting  the  expressions  (2.8)  for  the  stresses  into 
(2.4),  (2.5)  and  (2.6),  the  following  equations  are  formed: 
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From  equations  (2.7),  (2.10),  (2.11)  and  (2.12)  it  is  clear  that  a 
general  equation  could  be  formed: 

CONVECTION  TERMS  DIFFUSION  TERMS 
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where  Cr,  C  are  Che  convection  coefficients ,  r  _  ,  F  the  diffusion 

5  n  5*  S 

coefficients  and  the  source  term  taking  the  form  A^.$.  The 

quantities  and  (B^ ,  A|)  are  specific  to  a  particular  meaning  of 

§  which  stands  for  U,  V,  W,  9  (as  well  as  turbulent  kinetic  energy  k  and 
energy  dissipation  e  for  the  turbulent  flow  computations).  The  expressions 
of  all  those  coefficients  and  source  terms  are  given  below: 
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if  |  =  U,  from  equations  (2.10),  (2.13) 
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if  $  =  V,  equations  (2.11),  (2.13)  give: 
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(2.26) 


while  if  $  2  0,  equations  (2.7),  (2.13)  give: 
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where  Fr  is  the  molecular  Prandtl  number 
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and  Aq  *  0. 


(2.30) 


Having  formed  the  differential  equations  (2.13)  to  (2.30)  and  the 


proper  grid  for  storage  of  the  variables,  the  finite-difference  equations 


can  be  produced  following  the  steps  described  below: 


Integration  of  the  equation  (2.13)  over  the  <$  control  volumes,  shown 


in  Figure  2.5,  gives: 
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where  dV  is  given  in  equation  (A2.II)  of  Appendix  2  and  is  shown  in  Figure  3 


of  the  same  appendix 


So,  Che  equation  (2.31)  becomes: 
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where  e^,  w^,  n^,  a^  stand  for  east,  west,  north  and  south  positions  of  the 


control  volume  surrounding  $  (see  Figure  2.5).  a|,  A^t  a|,  a|  denote  the 


control  volume's  east,  west,  north  and  south  areas  respectively,  while  AV 


$ 


is  its  volume.  The  value  of  Sz  is  calculated  at  the  P  position  which  is 

*P 


located  in  Che  centre  of  the  control  volume  for  $.  If  $  =  U,  then: 

Ae  *  0*5(An(I,J)  +  An(I+J,J)j  x  Ax 
Awu-  o.5(An(IfJ)  ♦  An(I.UJ)j  X  As 

An  "  0,5^(I,J+l)  +  ^(I-1,J+1). 

As“  0,5 (^(I,J)  +  ^(I-I,J)]  * 

°-  o.25[ac(IjJ)  ♦  A£(1_ltJ)  x  (An(I>J)  ♦  ^n(I+lt 


x  Az 


AV 


,J) 


x  Az 


(2.33 


where  Az  =  1  and  the  distance  Art  and  A£  are  shown  in  Figure  2.5. 


If  |  =  V  then 


X  Az 


».’■  °-5Ki.1.J-I)  *  4riUH.. 

aJ.  0*5(an(Ilj_l)  *  4n(I,J)j  «  41 

4«'-  °-5Ki,J)  *  4^(I,J+1)]  *  4i 
A,’-  0.3[45(liJ)  ♦  «(I>J_„)  «  ** 

4V  *  0,25[4^(I,J)  +  x  (4n<I*l,J-l)  +  4n(I+l,J).  *  4* 


(2.34) 


If  $  =  W,  0,  p*  (or  k,  e  for  the  turbulent  flow  computations)  then: 


Ae  *  An(I+|,J)  x  Az 


4  *  A"<I,J>  *  Az 
An  “  A^(I,J+  1)X  Az 
A!  ’  A5(I,J)  X  A* 

AV?  "  An(I*l,J)  x  A*(I,J)  X  Az 


(2.35) 


In. evaluating  the  values  of  the  variables  |  at  their  cell  boundaries 
central  differencing  has  been  used  throughout.  Fatankar  [87],  Leonard  [88], 
Cl9]  and  Han  et  al  [90]  report  that  central  differencing  may  lead  to  unphysical 
oscillatory  behaviour  in  an  implicit  scheme  or  to  non-convergence  in  an 
explicit  scheme  in  a  flow  where  convection  dominates  diffusion  (i.e.  the 
Peclet  number  Pe  -  >  2),  However,  in  the  present  computations  no  such 

problems  have  been  encountered  since  the  cell  Peclet  numbers  (based  on  the 
velocity  components  in  the  £-n  plane)  were  always  less  than  2.  A  typical 
value  for  the  results  discussed  in  the  next  chapter  was  IQ-1 .  In  such  cases 


Che  exclusive  use  of  central  differencing  undoubtedly  offers  a  satisfactory 
compromise  between  the  requirements  for  accuracy  and  computational  economy. 


Equation  (2.32)  can  be  written  in  the  form: 
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(2.36) 


(2.37) 


the  total  fluxes  (convection  plus  diffusion).  Equation  (2.36)  shows  that 
the  above  discretization  is  conservative  since  continuity  of  the  fluxes  q 
is  satisfied  around  the  cell  boundaries.  However,  the  presence  of  the 
curvature  terms  in  the  diffusion  and  convection  coefficients  makes  it 
difficult  to  judge  if  overall  momentum  conservation  is  explicitly  satisfied 
If  all  the  values  of  appearing  in  equations  (2.37),  are  calculated  using 
central  differencing,  equation  (2.36)  takes  the  form: 

V  *P  '  *E  *  *  AS$  *S  *  SU$  (2.38) 

where  for  central  differencing  (Fe  <  2) 


p 


The  equations  for  Fr  ,  T  ,  C_,  C  have  been  given  above  ((2.14), 

s  n 

(2.15),  (2.16),  (2.19),  (2.20),  (2.23),  (2.24),  (2.27),  (2.28)),  as  well  as 
the  equations  for  A#®,  A^,  A^,  A*  ((2.33),  (2.34),  (2.35)),  while: 


50  ‘  ‘S.-O-’Kw)  *«(!,,♦») 

-S  •  °'5  Ki-M)  *  «(i-w,)) 

\  *  °-5  h«,j)  *  4na,j-.i), 

4\  ■  °-s  Ki,j>  *  mu,j-i>. 

u  ♦,»=  «<t  -  o.s 

4V°'5  Kw)*«(i-w] 

%,-wKi,j)*4"(i.  i.j). 
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(2.41) 


(2.42) 


and  if  *  i  W,0(k,e) 


A5a.  ’  0,25  lA5(I.*J)  +  A5(I,J+1)  +  A5(I+1,J)  +  A5(I+1,J+1)J 


-  0*25  f^(I(J)  ♦  AC(IjJ+1)  ♦  AC(I_,fJ)  +  ^(I.ltJ+1) 

AT1n#  *  0,25  [AnCI,J)  *  An(I+l,J)  *  An(I,J+l)  *  An(I+lfJ+l)] 

An  -  0.25  ♦  An(I+1>J)  ♦  An(I#J.|>  +  An(i+i,j-i)] 


J)  *  An(I+l,J)  *  An(I,J+l)  *  An(I+l,J+l) 


«,»,  and  6^  in  aquations  (2.39)  ara  waigbting  factors  accounting  for 
the  non-uniformity  of  tha  grid.  Their  valuas  ara  given  below: 


if  «  =  0  Ojj  -  0.5 


if  *  =  V 


8U  •  ina.j)  '  Ki,j>  *  4n<i,j.i>. 
°v  ■  1  *  ^(hW), 
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if  *  =  W,0(k,e) 
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For  grid  cell*  adjacent  to  the  boundaries  of  the  solution  domain 

$  $ 

g,  Ag  and  the  source  term  of  (2.38)  have  been 
modified  to  include  the  various  boundary  conditions.  The  iterative 
procedure  followed  by  the  computer  code  and  described  in  a  following 
section  of  the  present  chapter  has  to  be  stable  and,  hopefully,  rapidly 
convergent.  Certain  modifications  in  equation  (2.38)  have  been  proved 
to  secure  these  requirements: 


$  $ 

the  coefficients  Ag,  Ay, 


a)  During  an  iteration  the  net  mass  flux  from  a  control 
volume  is  generally  non-zero.  If  SMP  is  this  non-zero 
mass  flux  in  a  cell,  stability  can  be  improved  by 
adding  the  term  SMP  .  $p  in  the  SU  term  and  sub¬ 
tracting  it  from  SP. 


b)  Instability  can  also  be  eliminated  by  using  under¬ 
relaxation  factors  (URF4).  Their  application  in 
equation  (2.38)  yields: 
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The  use  of  improper  under-relaxation  factors  may  also  cause  instability. 
In  such  cases,  adjustment  of  the  under-relaxation  factors  is  needed.  The 
variables  (A^  and  (SD^give  the  expressions  for  and  SU^ formed  after 
the  application  of  the  under-relaxation  factors. 


2.5b  The  Special  Treatment  of  Pressure 

The  TEACH  program  in  its  original  form  incorporates  the  SIMPLE 
algorithm  (Semi-Implicit  Method  for  Pressured  Linked  Equations)  (see 
Patankar  and  Spalding  [8l]  ,  Patankar  [87]  )  in  order  to  adjust  successively 
the  pressure  field  and  satisfy  eventually  the  continuity  equation  through¬ 
out  the  solution  domain.  Initial  runs  using  SIMPLE  indicated  extremely 
slow  rates  of  convergence  although  simple  test  cases  were  computed.  At 
the  same  time,  similar  difficulties  had  been  experienced  by  a  research 
group  at  Imperial  College  working  on  a  different  project  using  also  cyclic 
boundary  conditions.  In  their  case,  the  problem  had  been  overcome  by 
devising  a  new  algorithm  for  the  solution  of  pressure-correction  equation 
(see  Issa  [79l  and  Go s man,  Issa,  Watkins  [80]). 


This  new  algorithm,  PISO  (Pressure  Implicit  Split  Operator)  is  based 


on  Che  recognition  that  the  assumption  of  a  linear  relation  between 
velocity  and  pressure  perturbations,  used  in  SIMPLE,  has  to  be  improved. 

So,  it  relates  the  velocity  perturbations  at  some  point  not  only  with  the 
pressure  perturbations  but  also  with  velocity  fluctuations  at  adjacent 
nodes.  A  full  description  of  the  new  algorithm  is  given  in  Appendix  3. 

The  equation  (A3. 18)  describing  the  "full"  exact  pressure  correction 
equation  has  the  same  form  with  the  discretized  momentum  and  energy 
equations  given  by  (2.38)  where  ♦  =  p'  and  SU  =  I  ♦  II  given  below.  In 
order  to  apply  equation  (A3. 18)  into  the  computer  code,  modified  to  solve 
the  flow  through  the  spirally  fluted  tube,  the  source  term  of  the  continuity 
equation  (2.3): 


(ic5pw)  +  An  (lcnpW) 


has  to  be  included.  Thus,  equation  (A3.I8)  becomes: 


A"P  P  -  V  p2+  \P  *W  *  <  P«  *  Pn  +  A" 
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equations  (2.39)  calculated  at  positions  e  or  w  for  U  and  n  or  s  for  V 
(see  Figures  la  and  lb  of  Appendix  3),  while 


\P  *  AwP 

SP  -  p-An  •  An 
ASP  *  P  •  ASP  ‘  AsP 

*P  ’  *  S'  ♦  S'  *  ASP 


(2.46) 


It  is  difficult  to  give  a  physical  meaning  to  these  finite-difference 
coefficients.  However,  they  can  be  looked  on  as  proportionality  factors 
which,  if  multiplied  by  pressure  gradient  perturbations,  give  velocity 
fluctuations: 

-  V  #tc* 

fivs  -  AP.  (pj_,  “  Pj)  etc. 

n 

where  p^_j,  P^>  Pj_j«  Pj  are  the  pressures  located  at  positions  shown  in 
Figures  la  and  lb  of  Appendix  3. 


Equation  (2.45)  can  be  decomposed  into  two  pressure  correction 

equations  (for  p'  and  p',  say)  which  differ  only  in  their  source  terms 
1  2 

(source  term  I  for  the  first  equation  and  II  for  the  second).  The  velocity 
*  * 

components  u  ,  v  are  calculated  at  the  previous  iteration  while  ou  and  <5v 


are  calculated  after  the  first  pressure  correction  equation  has  been  applied 


2.5c  Solution  of  the  Difference  Equations 

The  finite-difference  equations  have  been  solved  using  a  line-by-line 
iteration  procedure.  Thus,  for  solution  along  N-S  lines  with  W-E  sweeps 
equation  (2.38)  can  be  written  as: 

(ft  (ft  (ft  (ft  (ft  (ft 

•  *N  %  *  $P  "  As  *s  “  W  +  h  *E  +  \»  *W 

(2.48) 

If  I,  2,  ...n  are  the  nodes  shown  in  Figure  2.6,  the 

equation  (2.48)  can  take  the  fora: 
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Applying  equation  (2.49)  to  nodes  <  -  2,  3,..,  n-1 
-  A2  <t2  ■  B2  *  i  +  C2 

-*)♦*  *  D3*3-  *3*2  ‘  °3 
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(2.50) 


where  4  ,  4  are  known  boundary  values. 
1  ® 


Dividing  Che  first  member  of  equations  (2. SO)  by  D, 


A,  B2  C2  c  2 
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Multiplying  equation  (2.S2)  with  B^: 
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(2.53) 


Adding  equation  (2.53)  to  the  second  one  of  equations  (2.50)  one  can 


get: 
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where  k^ 


^  C3  +  V  B3 

(VVl)  '  1=3  '(V  B3  V) 


Similarly,  from  Che  rest  of  equations  (2.50)  Che  following 
relations  can  be  derived: 


4, 
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where 
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In  equations  (2.55)  4  is  a  known  boundary  value.  Using  equations 

n 

(2.55),  in  reverse  order,  the  values  of  9  .,4  ....  4  can  be 

n- i  n-i  4 

calculated,  while  equations  (2.54)  and  (2.53)  give  4^  and  4^. 

The  above  sequence  of  forming  the  new  coefficients  and  extracting 
the  4's  is  followed  by  a  similar  one  applied  along  W-E  lines  with  N-S 
sweeps.  However,  a  special  treatment  has  been  introduced  here  in  order  to 
take  account  of  the  cyclic  nature  of  the  boundary  conditions  along  the 
east  and  west  boundaries.  Again,  the  line-by-line  iteration  procedure 
has  been  used  to  solve  the  finite-difference  equations  along  these  lines 
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B 


with  N-S  sweeps .  Equation  (2.38)  can  now  be  written  as: 

-  *E  +  SS  -  “  W*  *  +  AS**S 


(2.56) 


If  1,  2,..,K  ,  ..,  n  are  the  nodes  shown  in  Figure  2.7  the  above 
equation  can  take  the  fora: 
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Applying  equation  (2.57)  to  nodes  I,  2,  ..  n  one  obtains: 
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As  before,  we  re-organize  Che  equations  to  relate  ♦  to  ♦ 
starting  from<«2  to  <-  n-1.  Equations  (2.58)  then  become: 
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Substituting  ♦|C+.  to  *  starting  from  <■  n-2  toie-l  equations  (2.59) 
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2.6 


Outline  of  the  Computer  Program  -  General  Structure 


The  original  computer  code  (TEACH),  written  by  Antonopoulos,  Go amen 
and  lesa  [86]  ,  has  been  devised  for  the  solution  of  steady,  two-dimensional, 
turbulent  (or  laminar)  recirculating  flows  and  can  be  modifed  to  cover  three- 
dimensional  flows  as  well  as  parabolic  ones. 


The  computer  program  consists  of  14  sub-routines.  Each  sub-routine  is 
divided  into  chapters  to  facilitate  understanding.  The  structure  of  the 
computer  program  is  given  in  the  following  flow  chart  while  a  broad 
description  of  the  program  and  the  main  functions  of  each  sub-routine  are 
outlined  in  a  subsequent  section. 


CONTRO  is  the  main  sub-routine  responsible  for  the  overall  control  of 
the  operations  by  calling  in  a  fixed  order  the  rest  of  the  sub-routine. 
First,  in  CONTRO,  the  various  parameters,  fluid  properties,  turbulence 
constants  (for  the  turbulent  flow  computations)  are  initiated.  Next, 
geometric  quantities,  such  as  control  volusie  dimensions,  solution  domain 
features  (i.e.  Ra>  h,  n)  are  read  in  as  data. 


INIT  is  the  first  sub-routine  called  by  CONTRO.  This  calculates  the 
geometric  interpolation  coefficients  and  sets  most  of  the  working  arrays  to 
zero. 


CONTRO  then  calls  sub-routine  RAOCUR  where  quantities  related  to  the 
curvature  of  the  co-ordinates  are  calculated,  while  a  special  treatment  of 
the  boundary  surfaces  is  introduced  by  section  MODRAD  of  sub-routine  PROMOD. 
PROMOO,  as  its  name  implies,  is  responsible  for  the  introduction  of  the 
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boundary  conditions  (FROblam  MODif ications) .  This  sub-routine  is  divided 
into  sections  with  individual  entry  points  defined  as  MOD  followed  by  some 
characteristic  symbol  (for  example,  MODRAD) .  So,  every  section  plays  the 
role  of  an  independent  sub-routine. 

The  next  sub-routine  to  be  called  by  CONTRO  is  PROPS.  This  sets  the 
fluid  properties  over  the  whole  solution  domain.  Since  only  incompressible 
flows  are  considered,  the  density  is  set  to  a  constant  value,  while  viscosity 
is  calculated  from  the  proper  equations  depending  on  the  turbulence  model, 
if  turbulent  flow  computations  are  performed,  or  set  to  a  constant  value  if 
the  laminar  regime  is  examined.  A  more  detailed  description  of  CONTRO  can 
be  found  in  Appendix  5. 

Called  next  is  sub-routine  PRINT  which  prints  the  initial  values  of  the 
variables  while  at  that  point  both  the  iteration  and  marching  loops  begin. 

During  the  marching  procedure,  CONTRO  calls  CALCU,  CALCV,  CALCW,  CALCP 
(and  CALCTE,  CALCED  for  the  turbulent  flow  computations)  in  that  order  for 
the  solution  of  the  finite-difference  equations  described  in  Sections  2.5a, 
2.5b  and  2.5c.  Depending  on  whether  the  fluid  viscosity  (u)  is  variable, 
PROPS  is  called  at  the  end  of  the  above  sequence.  CALCU,  CALCV,  CALCW, 
(CALCTE  and  CALCED)  are  described  in  Appendix  5,  as  well  as  CALCP  with  its 
special  features  for  the  solution  of  the  pressure  correction  equation.  Just 
after  CALCW,  when  the  velocity  field  has  been  calculated  from  the  momentum 
equations,  CONTRO  calls  MODVEL  which,  as  its  name  implies,  is  a  section  of 
PRO MOD  updating  the  boundary  velocities.  MODVEL  is  called  twice,  the 
second  call  being  made  after  the  velocity  field  is  adjusted  by  the  correction 
process  in  CALCP.  Once  the  marching  loop  has  been  completed,  CONTRO  calls 
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again  Che  above-mentioned  sequence  of  sub-routines  and  so  on.  At  the  end 
of  every  marching  loop  an  intermediate  printout  is  used.  This  gives  the 
summed  residuals,  the  computed  variables  at  some  reference  point  in  the 
solution  domain,  as  well  as  the  velocity,  pressure  (and  k,  e,  y)  fields  if 
the  number  of  iterations  is  an  exact  multiple  of  a  value  (INDPRI)  fixed  at 
the  beginning  of  CONTRO.  At  point  1  in  Che  flow  chart,  a  termination  test 
for  the  iteration  procedure  is  performed.  All  the  residual  sums  calculated 
in  CALCES  and  RESORmI calculated  in  CALCP)  are  checked  against  a  value 
introduced  at  Che  beginning  of  CONTRO  (SORMAX).  If  all  these  residuals  are 
smaller  than  this  control  value  (10-3),  the  dynamic  field  is  considered  to 
have  converged  and  the  iteration  sequence  is  terminated.  Then,  a  small 
iteration  loop  is  initiated  where  only  the  temperature  equation  is  solved, 
controlled  by  a  similar  termination  test.  Once  the  temperature  equation 
has  converged,  a  printout  for  all  the  computed  variables  is  issued  covering 
the  whole  solution  domain. 

In  Che  last  chapter  of  CONTRO,  final  operations,  such  as  the  calculation 
of  friction  factors  and  Nusselt  numbers,  normalization  of  profiles  as  well 
as  the  final  output,  are  performed. 

Gosman  and  Ideriah  (9 1] *  in  their  TEACH  manual,  point  out  that,  since 
computer  resources  in  time  and  storage  are  limited,  measures  must  be  taken 
to  ensure  minimization  of  these  demands.  Such  measures  are: 

e  Good  specification  of  initial  field;  for  example, 
starting  from  a  previous  calculation  can  improve 
the  computing  times  considerably. 

•  Optimization  of  grid;  that  implies  the  use  of  a 


fine  grid  in  regions  of  steep  gradients  (for 
example,  near  a  wall)  and  a  coarse  grid  in  the 
rest  of  the  solution  domain. 

•  Minimization  of  the  extent  of  the  calculation 
domain. 

•  Optimization  of  the  under-relaxation  factors. 

•  Specification  of  a  realistic  convergence  criterion. 

All  the  above  measures  have  been  followed  in  the  present  computations 
and  specific  reference  to  them  is  made  in  the  appropriate  chapters. 

The  additional  modifications  introduced  into  the  computer  program 
for  the  solution  of  turbulent  flows  are  described  in  Chapter  4  and 
Appendix  5. 

2.7  Experiences  in  Applying  the  Computer  Program 

The  initial  programming  effort  has  been  concerned  with  introducing 
the  very  large  number  of  "source  terms"  arising  from  the  expression  of  the 
describing  equations  in  the  co-ordinate  system  (£,  n •  O •  An  impression 
of  the  difficulty  of  the  task  can  be  gained  by  referring  to  equations  (2.17), 
(2.18),  (2.21),  (2.22),  (2.25),  (2.29)  which  express  the  source  terms  for 
the  momentum  and  energy  equations.  Moreover,  the  form  of  the  diffusion 
coefficients  given  by  equations  (2.15),  (2.16),  (2.19),  (2.20),  (2.23), 
(2.24),  (2.27),  (2.28)  and  convection  coefficients  given  by  equation  (2.14) 
raised  questions  as  far  as  the  extra  terms  added  to  the  conventional  ones 
are  concerned.  However,  the  inclusion  of  these  extra  terms  in  the  source 


terms  proved  to  be  unsuccessful  since  it  produced  instability  of  the 
computational  procedure.  Equations  (2.39)  and  (2.40)  give  the  final  forms 
of  the  diffusion  coefficients,  convection  coefficients  and  source  terms 
introduced  into  the  computer  code,  being  compatible  with  the  already 
existing  program. 

Another  major  task  has  been  the  incorporation  of  the  FISO  algorithm 
into  the  computer  code  for  solving  the  pressure-correction  equation, 
presented  in  Section  2.5b.  After  introducing  this  new  scheme,  the 
convergence  rates  of  the  solution  procedure  were  improved  by  more  than  an 
order  of  magnitude. 

Despite  this  improvement,  the  problem  of  slow  convergence  for  some 
cases  remained.  Indeed,  the  convergence  of  the  solution  has  been  a  very 
difficult  task  throughout  the  project,  for  both  laminar  and  turbulent 
regimes.  Computing  times  on  a  CDC7600  for  solving  both  the  velocity  and 
temperature  fields  starting  from  a  uniform  initial  distribution,  for 
laminar  flow  computations,  ranged  from  50  cps  to  800  cps  using  an  ( 18  x  20) 
grid  which  has  been  found  to  give  acceptably  grid-independent  solutions. 
However,  the  practice  of  using  a  uniform  initial  field  was  not  normally 
followed.  Actually,  once  a  solution  has  been  obtained  for  a  fixed  number 
of  flutes,  it  was  used  as  the  initial  distribution  for  the  further  comp¬ 
utations  (at  a  different  Reynolds  number  or  with  minor  variations  in  tube 
geometry).  By  this  means,  the  computing  times  were  reduced  to  just  10-20% 
of  those  reported  above. 


As  has  been  shown  in  the  flow  chart  of  the  computer  program,  the 
temperature  equation  was  solved  only  when  the  momentum  equations  were  fully 


converged  and  the  velocities  were  stored.  Thus,  the  study  of  different 
fluids  could  be  obtained  by  using,  for  a  given  flute  geometry  and  Reynolds 
number,  the  same  dynamic  field  with  a  dummy  thermal  conductivity  k 
(k  ■  — where  and  Pr  are  the  specific  heat  at  constant  pressure  and 
the  Prandtl  number  of  the  used  fluid)  for  the  temperature  equation.  Again, 
this  practice  reduced  the  computing  times  to  10-2QZ  of  the  times  reported 
initially. 

Following  the  suggestions  of  Cosman  et  al  [9l]  for  obtaining  fast 
convergence  of  the  computational  procedure,  many  sets  of  under-relaxation 
factors  have  been  applied  to  the  discretized  form  of  the  describing 
equations.  For  low  Reynolds  number,  the  under-relaxation  factors  giving 
the  fastest  convergence  rates  are:  0.5  for  the  pressure  (p),  1.0  for  the 
axial  velocity  (W),  1.0  for  the  5 -velocity  component  (U)  and  0.9  for  the 
H-velocity  component  (V),  while  for  high  Reynolds  numbers,  0.9  for  ty  and 
0.8  for  both  U  and  V.  The  integer  values  of  NSWP$,  which  determine  how 
many  times  sub-routine  LISOLV  will  be  called  from  CALC4>  to  solve  the 
discretized  form  of  the  describing  equations,  were  4  for  CALCP  and  CALCU 
and  2  for  CALCV  and  CALCU.  Any  increase  in  these  values  did  not  make  any 
substantial  difference  in  the  total  number  of  iterations  needed. 

Figures  2.8  to  2.11  show  the  convergence  of  the  largest  residuals 
with  the  number  of  iterations  for  different  Reynolds  numbers  and  flute 
configurations.  Figure  2.8  shows,  at  a  Reynolds  number  of  330  and  for 
three  pipe  geometries  (i.e.  10,  20  and  30  flutes),  the  convergence  of 
^-momentum  equation.  It  is  clear  that  for  the  higher  flute  density  (n-30) 
although  the  convergence  rate  is  fast  for  the  first  70  iterations,  it  slows 
down  and  only  reaches  a  satisfactorily  converged  level  after  1650  iterations. 


Analogous  behaviour  is  shown  in  Figure  2.9  where  a  high  Reynolds  number 
flow  is  examined  and  the  largest  residual  is  that  for  the  axial  velocity 
W.  Figures  2.10  and  2.11  present  the  influence  of  the  spiral  angle  4 
on  the  convergence  rates  in  two  different  situations:  first,  for  high 
Reynolds  number  and  low  flute  density,  and,  second,  for  low  Reynolds 
number  and  high  number  of  flutes.  For  both  cases,  the  higher  the  spiral 
angle  4  the  slower  the  convergence  rate  of  the  corresponding  largest 
residual. 

Many  tests  have  been  performed  in  order  to  identify  the  reasons 
behind  the  slow  convergence  rates  of  the  computational  procedure.  In  this 
direction,  the  effectiveness  of  the  TDMA  (Tri-Diagonal  Matrix  Algorithm) 
used  in  LISOLV  for  solving  the  discretized  form  of  the  describing  equations 
(described  in  a  previous  section)  has  been  questioned.  However,  when  the 
residuals  were  checked  after  every  call  of  LISOLV,  TDMA  proved  to  perform 
quite  satisfactorily  since  the  residual  of  U  decreased  by  a  factor  of  3.4, 
the  residual  of  V  by  3.2  and  the  residual  of  W  by  1.04.  (This  small  value 
of  W  was  not  felt  to  be  significant  as  the  axial  momentum  equation  had 
already  converged  at  the  time  the  test  was  introduced). 

It  is  obvious  from  Figures  2.8  to  2.11  that  the  higher  computing 
times  were  obtained  with  flute  configurations  which  gave  rise  to  grid  cells 
of  high  aspect  ratio,  i.e.  for  large  number  of  flutes  of  high  amplitude  h 
(see  Figure  2.12).  Moreover,  in  the  early  stages  of  the  research  when  grid 
networks  like  the  one  shown  in  Figure  2.2  were  used,  the  convergence  rates 
were  even  slower.  It  is  believed  chat  this  deterioration  in  convergence 
rates  could  be  cured  if  the  high  aspect  ratio  grid  cells  could  be  avoided. 
One  way  of  achieving  this  would  have  been  to  adopt  a  non-orthogonal  grid  in 
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Fig.  2. 6  W-E  sweeps  in  LISOLV 
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N-S  sweeps  in  LISOLV  (cyclic  treatment) 


Che  'fluting'  of  Che  grid,  the  ouCer  boundary  of  Che  solution  domain  did 
not  coincide  wich  Che  purely  circular  boundary  surfaces  of  Che  CesC  flows. 
The  exacC  analytical  values  were  therefore  applied  Co  the  finice  volume  code 
for  Che  ouCer  row  of  cells.  The  values  calculated  for  Che  interior  nodes 
were  then  compared  with  those  of  the  analytical  solution.  These  tests 
proved  valuable  in  helping  differential  and  coding  errors  to  be  detected. 

The  flow  in  Che  circular  tube  was  computed  with  20  nodes  in  the  re¬ 
direction  and  a  flute  amplitude  of  0.03  R^.  The  maximum  departure  of  the 
computed  axial  velocity  from  Che  parabolic  analytical  profile  was  0.82. 
Figure  3.1  shows  the  comparison  between  computations  and  analytical  solution 
of  the  axial  velocity  ratio  W/W  at  the  trough  position  of  the  'fluted'  grid. 
Although  the  exact  solution  requires  zero  motion  in  the  cross  stream  plane, 
the  momentum  equations  for  velocity  components  D  and  V  in  the  plane  £-n 
were  also  solved.  The  largest  velocity  computed  was  10~6  times  the  axial 
velocity;  value  which  has  been  accepted  to  be  almost  zero.  It  may  be 
mentioned  here,  however,  that  first  attempts  at  computing  this  flow  produced 
a  swirl  velocity  of  order  I0~z  times  Che  axial  velocity,  a  discovery  that 
helped  an  error  in  the  differential  equations  to  be  detected. 


The  annular  flow  computations  were  performed  for  a  radius  ratio  of 
0.4  with  the  outer  cylinder  rotating  at  a  velocity  as  large  as  the  mean 
axial  velocity  using  a  grid  with  a  flute  amplitude  of  0.06  R^  (while  a  32 
flute  amplitude  has  been  used  for  the  smooth  pipe  flow  discussed  above) 
decreasing  linearly  to  zero  from  the  outer  boundary  to  inner  radius  Rft. 
Despite  the  unsuitable  nature  of  the  grid,  shown  in  Figure  2.2  of  Chapter  2, 
the  maximum  error  in  axial  velocity  was  1.52  and  in  circumferential  velocity 


32.  Figure  3.2  shows  a  comparison  of  Che  circumferential  velocity  ratio 


U/U  wall  and  axial  velocity  ratio  W/W  at  the  trough  position  of  the 
'fluted'  grid  between  computations  and  analytical  solution. 

At  the  beginning  of  computations  on  spirally  fluted  tubes,  the 
question  of  positioning  the  inner  boundary  arose.  The  condition  of  solid 
body  rotation  was  applied  at  three  different  values  of  the  inner  boundary 
:  0.62,  0.42  and  0.3  times  the  mean  radius,  R^.  The  enlargement  of  the 
calculation  domain  was  obtained  by  adding  extra  nodes,  leaving  the  grid  in 
the  area  common  to  three  solutions  unchanged.  Figure  3.3  shows  the  three 
nodal  distributions.  The  flow  in  a  tube  with  ten  flutes  and  6Z  flute  height 
at  a  Reynolds  number  of  300  has  been  used  as  the  basis  for  comparisons.  Mo 
differences  between  the  solutions  with  Rfi  ■  0.42  R^  and  Rfl  *  0.03  R^  have 
been  detected  over  the  common  region.  For  R&  «  0.62  R^,  however,  although 
the  flow  pattern  in  the  vicinity  of  the  flutes  was  identical  to  those 
obtained  with  Rfl  -  0.3  R^  and  R^  ■  0.42  R^,  the  tangential  velocity  dis¬ 
played  a  15Z  variation  around  the  inner  boundary  indicating  a  violation  of 
the  solid  body  rotation  condition  imposed  there.  Figure  3.4,  which  presents 
the  distribution  of  U/W  with  the  radius  at  the  trough  and  crest  radii, 
clearly  shows  all  the  characteristics  mentioned  above.  Figure  3.5  gives  an 
impression  of  the  velocity  direction  lines  for  the  three  solution  domains 
used.  The  pattern  seems  identical  in  all  three  plottings  for  the  near-wall 
region,  while  for  R^  *  0.62  R^  near  the  inner  boundary,  some  divergence 
from  solid  body  rotation  can  be  seen  from  the  difference  in  the  lengths  of 
Che  arrows  at  a  given  radius.  On  the  basis  of  these  tests,  the  inner 
boundary  conditions  in  all  the  computations  for  laminar  flows  were  applied 
at  0.4  R^,  although  for  30  flutes  this  choice  was  not  the  best  one  since  the 
solid  body  rotation  region  extended  up  to  0.73  R^  and  matching  at  Rft  «  0.7  R^ 
would  not  have  altered  the  results. 
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Anocher  question,  which  arose  when  Che  mixed  curvilinear /cylindrical 
grid  had  been  found  to  give  the  best  mapping  of  the  solution  domain,  was 
the  influence  of  the  abrupt  change  in  grid  spacing,  due  to  the  switch  from 
one  grid  type  to  the  other,  on  the  flow  pattern.  Runs  were  made  with  the 
changeover  radius  ranged  from  0.6  to  0.8S  R^.  No  differences  in  results 
have  been  found  if  the  change  occurred  for  R  ^  0.7  R^.  For  smaller  radii 
and  30  flutes,  unjustified  circumferential  non-uniformities  appeared  because 
of  the  poor  mesh  coverage.  For  all  the  subsequent  computations  of  laminar 
flows  the  value  of  0.85  R^  was  applied  to  changeover  radius. 


3.1.1  b.  Convective  Heat  Transfer 

The  computation  of  convective  heat  transfer  in  a  smooth  tube  with  a 
uniform  surface  heat  flux  has  been  used  as  a  further  test  of  the  solving 
scheme's  numerical  accuracy.  Again,  a  (20  x  18)  'fluted'  grid  has  been 
used  with  6Z  rib  height  and  15°  spiral  angle.  The  exact  analytical  values 
of  temperature  were  supplied  at  the  nodes  of  the  outermost  row  of  cells. 
This  test  case  proved  valuable  in  detecting  coding  errors  in  the  energy 
equation.  When  these  had  been  corrected,  the  calculated  Nusselt  number  for 
a  grid  with  45°  spiral  angle  and  zero  flute  amplitude  agreed  within  0.1Z 
with  the  value  of  4.364. 


3.1.2  Parametric  Study  of  the  Results 

3.1.2  a.  Velocity  Field 

In  the  parametric  study  of  the  laminar  flow  through  a  spirally  fluted 
tube,  reported  below,  the  tube  with  10  flutes,  6Z  flute  height,  15°  spiral 


angle  has  been  chosen  as  Che  basis  for  parametric  variations. 


The  pattern  of  the  flow  created  in  Che  spirally  fluted  Cube  is  broadly 
the  same  for  all  the  variations  considered  (number,  height  or  angle  of  flutes). 
However,  some  significant  detailed  differences  can  be  detected  and  are 
reported  below.  This  general  flow  pattern  is  clearly  shown  by  the  velocity- 
direction  lines  mapping  the  £-n  plane  of  the  tube.  Figure  3.6  presents  the 
flow  pattern  for  10,  20  and  30  flutes  at  a  Reynolds  number  of  300,  while 
Figure  3.7  shows  the  velocity-direction  lines  covering  the  whole  cross- 
stream  plane  of  the  tube.  It  is  clear  from  these  two  figures  that  the  flow 
encountering  a  flute  (spiralling  around  the  circumference  in  a  clockwise 
direction)  creates  a  region  of  high  pressure  on  the  leading  face  of  the 
flute  which  forces  adjacent  fluid  clockwise  and  to  smaller  radius.  In 
contrast,  on  the  trailing  face  of  the  flute  a  low  pressure  region  is  created 
and,  because  of  the  pressure  difference  between  the  two  flute  faces,  some 
fluid  spills  anti-clockwise  over  the  flute  crest  despite  the  overall  clock¬ 
wise  f low -direction.  The  difference  in  length  and  direction  of  the  arrows 
in  the  near-flutes  region  indicates  that  the  circumferential  variations 
are  quite  strong,  in  contrast  to  the  core  region  where  no  changes  can  be 
detected  from  the  purely  circumferential  direction  of  the  velocity-direction 
lines.  It  is  obvious  from  Figure  3.6  that  as  the  number  of  flutes  increases, 
the  flute-affected  region  moves  closer  to  the  tube  wall  while  the  solid 
body  rotation  region  (no  circumferential  variations)  covers  a  larger  part 
of  the  flow.  The  same  behaviour  is  encountered  when  the  Reynolds  number 
increases,  as  shown  in  Figure  3.8  where  the  flow  patterns  for  two  Reynolds 
numbers  are  presented. 

Figures  3.8a  and  3.8b  show  two  alternative  presentations  of  vector  lines 
on  the  cross-stream  plane  of  a  10-flute  tube  at  $  ■  30°. 


The  first  one 
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illustrates  the  distribution  of  velocity  vectors  given  by: 

(U  +  V)  -  uTr 

where  U,  V  are  velocity  vectors  in  £  and  n  directions  respectively,  while  u 
is  the  angular  velocity  of  the  core  region  for  the  particular  case.  Thus, 
Figure  3.8a  shows  how  the  secondary  flow  "vectors"  appear  to  an  observer 
rotating  with  the  core  of  the  fluid  and  consequently  the  velocity  over  the 
core  region  of  the  solution  domain  where  the  solid-body  rotation  takes 
place  appears  as  zero.  It  is  clear  from  the  figure  that  near  the  flutes 
some  fluid  is  rotating  clockwise  faster  than  the  "solid-body"  rotation  rate 
while  nearby  fluid  is  proceeding  much  more  slowly. 

Figure  3.8b  shows  the  distribution  of  velocity  vectors  given  by 
the  correlation: 


where  V  -  (VQ  cos  <t>  -  Wsin$)  cos  $ 

nQ  a 

$  -  spiral  angle  W  »  axial  velocity 

Vg  and  Vz  are  the  circumferential  and  radial  velocity  components  of  the 
resultant  velocity  vector  ($  ♦  V).  Velocity  V  is  the  circumferential 
velocity  on  the  "cross-stream"  plane  formed  by  slicing  the  tube  normal  to  the 
flutes.  It  is  clear  from  the  anticlockwise  direction  of  the  arrows  that 
over  most  of  the  tube  the  fluid  is  not  spinning  clockwise  as  fast  as  the 
flutes,  i.e.  it  is  gliding  backwards  relative  to  the  flutes.  Deep  within 
the  flutes,  however,  the  shrinkage  of  the  velocity  "vectors"  to  a  mere  dot 
indicates  that  here  the  fluid  is  very  nearly  following  the  grooves  of  the 
fluting.  We  shall  see  later  in  Chapter  5  that  this  pattern  is  in  marked 
contrast  with  that  found  in  turbulent  flow.  The  corresponding  velocity 
vector  presentations  for  a  20-flute  tube  at  30°  spiral  angle  are  presented 
in  Figures  3.8c  and  3.8d  where  no  distinctive  differences  can  be  detected 
from  those  for  10  flutes. 
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Figure  3.9  also  shows  Che  influence  of  the  Reynolds  number  on  Che 
cross-sCream  flow  paCCern  discussed  above.  This  figure  displays  Che 
distribution  of  the  velocity  ratio  U/Umav  as  a  function  of  Reynolds  number 
aC  two  radial  lines  passing  through  Che  trough  and  Che  crest  of  Che  flute, 
since  it  is  believed  thac  these  two  positions  illustrate  as  clearly  as 
possible  the  effects  which  different  modifications  in  the  flow  parameters 
or  flute  geometry  have  on  the  cross-stream  flow.  Three  different  Reynolds 
numbers  are  considered  showing  that  the  higher  the  Reynolds  number  the  smaller 
the  distance  from  the  tube  wall  to  which  the  flutes  affect  the  flow.  This 
trend  is  entirely  plausible  since  an  increase  in  Reynolds  number  entails  a 
decrease  in  the  diffusion  velocity  relative  to  the  convection  velocity 
especially  when  the  convection  coefficients  have  the  form  of  equation  (2.14) 
where  extra  terms,  including  the  axial  velocity,  are  present.  Figure  3.10 
shows  the  same  behaviour  as  Figure  3.9  but  for  the  effect  of  spiral  angle. 

It  is  clear  that  the  spiral  angle  also  displays  a  trend  to  confine  the 
flute-affected  region  near  the  wall.  Figure  3.11  shows  that,  for  spiral 
angles  ranging  from  15°  to  43°,  the  circumferential  velocity  increases  in 
roughly  the  same  ratio  as  the  tangents  of  the  spiral  angles. 

In  spite  of  the  above-mentioned  effects  of  Reynolds  number  and  flute 
angle,  their  effects  on  the  shape  of  the  circumferential  velocity  profile  is 
very  small.  In  contrast,  changes  in  the  number  of  flutes  display  a  much 
more  profound  effect  on  the  velocity  profile.  This  can  be  seen  in  Figure 
3.12  where  two  different  flute  densities  are  plotted  and  where,  for  30 
flutes,  the  fluid  is  in  solid  body  rotation  for  radii  less  than  about  0.75  Rp 
while  more  swirling  flow  is  transferred  to  the  core  region  of  the  tube. 

This  is  best  shown  in  Figure  3.13  where  the  ratio  U/W  is  plotted  against  the 
number  of  flutes  at  radius  0.5  R^.  For  30  flutes,  although  the  "back  flow" 


over  Che  crest  is  stronger,  it  is  confined  to  a  thinner  region,  while  a 
very  weak  and  limited  reverse  flow  also  appears  in  the  trough.  Since  the 
flow  pattern  for  20  flutes  is  intermediate  between  that  for  10  and  30 
flutes,  it  has  been  omitted  for  clarity. 

The  rib  amplitude  has  a  considerable  effect  on  the  amount  of  swirl 
generated,  as  shown  in  Figure  3.14  where  the  6X  flute  height  produces 
circumferential  velocities  almost  three  times  as  large  as  for  flutes  of 
3Z  amplitude  for  a  tube  with  10  flutes,  15°  spiral  angle  at  a  Reynolds 
number  of  approximately  300. 

Figures  3. IS  and  3.16  show  the  effects  that  the  flute  density  and 
spiral  angle  have  on  the  axial  velocity  profiles.  The  main  feature  to  note 
is  that  for  30  flutes  (Figure  3.  IS)  the  velocity  level  within  the  trough  is 
very  much  lower  chan  for  10  flutes  due  to  the  proximity  of  the  flute  surfaces 
and  the  enhanced  viscous  retardation  that  results.  The  influence  of  spiral 
angle,  however,  over  the  range  0°-4S°  is  not  significant,  as  can  be  seen 
from  Figure  3.16. 

The  distribution  of  surface  pressure  ( (p  —  Pref)/pV?)  can  be  seen  in 
Figures  3.17  and  3.18.  As  has  been  pointed  out  above,  at  Che  leading  face 
of  the  flute  a  high  pressure  region  is  created,  in  contrast  to  the  trailing 
face  which  is  characterized  by  low  pressures,  figures  3.17  and  3.18  show 
exactly  Chat.  From  Figure  3.17  one  can  see  that  the  maxima  and  minima  occur 
near  the  crest  at  positions  located  one  quarter  of  the  distance  between 
trough  and  crest  on  each  face  of  the  flute.  This  distribution,  however, 
depends  highly  on  the  number  of  flutes;  the  higher  the  flute  density  the 
more  abrupt  Che  change  from  maximum  to  minimum  surface  pressure  moving 


cowards  Che  cresC.  Analogous  behaviour  is  shown  in  Figure  3.18  where  Che 
effecC  of  fluCe  angle  on  sCaCic  pressure  around  Che  fluCe  is  presenCed. 

The  only  difference  here  is  chac  Che  posicion  of  Che  maxima  and  minima 
seems  Co  be  almosC  independenc  of  Che  spiral  angle,  over  che  range  considered. 


Figure  3.19  displays  Che  discribucion  of  Che  pressure  coefficienC 
^pmax  “  pmin^pW2  w^t*1  number.  Ic  is  clear  chac  ac  low  Reynolds 

numbers  Chis  coefficienC  shows  a  Re*1 .dependence  while  ac  high  Reynolds 
numbers  ( 103  <  Re  <  2.5 x  103)  Che  dependence  on  Re  can  be  approximaCed  by 
an  exponenc  of  -4.  This  discribucion  can  be  explained  by  che  face  chac  if 
changes  in  surface  pressure  around  Che  fluCe  were  only  due  Co  dynamic 
ef feces,  che  pressure  coefficienC  would  be  independenc  of  Re,  while  if  Che 
dynamic  effecCs  were  negligible  iC  would  vary  as  Re**1 .  Two  differenc 
numbers  of  fluCes  are  ploceed  in  Figure  3.19;  che  20-flute  cube  displays  a 

L 

sCronger  dependence  on  Re*1  which  becomes,  aC  high  Reynolds  numbers,  Re”. 
This  behaviour  can  be  explained  by  Che  higher  fluCe  Reynolds  numbers 


Ref- 


(W  sin  9  -  Vq  cos  9)  cos  9  (2h) 


(based  on  velocicy  (Wain 9  -  VQ  cos  9)  cos  9,  which  is  Che  projecCion  on  Che 
cross-scream  plane  of  che  velocicy  normal  Co  fluCes  direction  and  rib 
heighc)  observed  for  the  lower  flute  density  Cubes  ac  Reynolds  numbers  (Re) 
between  400  and  1500;  for  example,  for  a  Reynolds  number  of  1300,  che 


The  variation  of  friction  factor  with  Reynolds  number  is  shown  in 
Figures  3.20  and  3.21  for  two  differenc  definitions  of  friction  factor. 


Figure  3.20  illustrates  the  variation  of  friction  factor  defined  as 


f 


4A  /  (W>)/I 


(3.1) 


where  A  is  the  tube's  cross-sectional  area  and  P  its  perimeter,  while 


Re  -  U  .  4A  /  \>  /  P 


(3.2) 


The  term4A/P  gives  the  conventional  equivalent  diameter  (D^).  It  is 
clear  that  while  all  the  friction  factors  lie  below  the  smooth  tube  line 
(f  •  64  /Re)  they  also  display  a  -1  dependence  on  Reynolds  number  over  the 
range  studied.  This  behaviour  indicates  that,  for  10  flutes,  form  drag 
(which  is  roughly  proportional  to  the  pressure  coefficient  shown  in 
Figure  3.19)  has  a  small  effect  on  the  total  pressure  drop.  The  fact  that 
all  the  friction  factor  lines  lie  below  the  smooth  tube  line  can  be 
explained  by  the  behaviour  shown  in  Figures  3.15  and  3.16.  As  has  been 
pointed  out  earlier,  in  the  troughs  the  axial  velocity  and  consequently  the 
wall  shear  stress  are  clearly  much  lower  than  in  a  smooth  tube.  Thus,  the 
mean  wall  shear  stress  is  lower  and  eventually  the  friction  factor. 


Figure  3.21  shows  the  variation  of  "pipe"  friction  factor,  defined  as 
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2Rb/(W) 


with  Reynolds  number: 


(3.3) 


•  2»VV  (3.*) 

Using  these  definitions  a  comparison  can  be  made  between  the  pressure  drop 
through  the  spirally  fluted  tube  and  that  through  a  smooth  tube  of  the  same 
mean  radius  under  the  same  mass  flow  rate.  It  is  clear  that  the  increase 


is  almost  insignificant.  Although  only  the  line  for  10  flutes  has  been 
drawn,  all  the  other  lines  (n  -  20,  n  -  30  and  even  9  -  30°,  <f  -  45°)  are 
not  discernibly  different  from  this  line ,  so  they  have  been  omitted  for 
clarity.  Now,  the  fluted  tube's  friction  factors  lie  above  the  smooth 
tube's  line  but  the  increase,  even  for  n  ■  30,  $  -  30°,  is  less  than  10Z. 


3.1.2  b.  Convective  Heat  Transfer 


The  heat  transfer  enhancement  of  the  spirally  fluted  tube  can  be 
ascribed  to  two  different  factors:  the  increase,  due  to  fluting,  of  heat 
transfer  surface  area  per  unit  length  of  the  tube  and  the  convective 
transport,  due  to  the  secondary  flow  produced  by  the  spiral  flutes.  It  is 
well  known  that  the  Nusselt  number  of  fully-developed  laminar  flow  in 
smooth  tubes  is  constant  (Nu  ■  4.364)  while  generally  in  fully-developed 
flows  with  no  net  circumferential  convection  the  Nusselt  numbers  are 
independent  of  Reynolds  and  Prandtl  numbers.  As  has  been  reported  in  the 
literature  survey  in  Chapter  1,  a  sensitivity  of  Nusselt  number  to  Re  or 
Pr  can  be  found  .Then  a  secondary  flow  is  present.  This  is  what  Figure  3.22 
indicates,  illustrating  the  dependence  of  mean  Nusselt  number  of  the 
spirally  fluted  tube  on  Reynolds  and  Prandtl  numbers.  The  Nusselt  number 
plotted  in  this  figure  and  used  in  all  the  results  reported  below  has  been 
defined  as: 
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q"  2^  P 

AT.kf  2nR^ 


(3.5) 


where  4"  is  Che  heat  input  to  the  tube  per  unit  surface  area,  P  is  the 
perimeter  of  the  fluted  tube,k^  is  ehe  thermal  conductivity  and 


Tw  being  the  wall  temperature  and  f  the  bulk  mean  temperature  of  the  fluid. 
The  definition  (3.3)  shows  what,  for  a  given  total  heat  input,  would  be  the 
reduction  in  pipe  wall  temperature  from  the  presence  of  fluting  for  the 
same  mean  radius  and  flow  conditions.  If  the  added  surface  area,  due  to 
fluting,  had  not  been  taken  into  account,  equation  (3.5)  would  have  the 
form: 
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(3.6) 


Another  definition  of  Nusselt  number  based  on  the  hydraulic  diameter 
(D^)  could  be: 
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(3.7) 


or  the  one  corresponding  to  (3.6): 
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(3.8) 


All  the  above  definitions  of  Musselt  number  stand  for  the  local 
values  around  the  flute.  The  mean  value  of  Nup,  plotted  in  Figure  3.22, 
has  been  calculated  from  the  local  ones  (equation  (3.5))  using  the 
correlation: 
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(3.9) 


where  A  stands  for  the  Musselt  number  or  any  other  variable  calculated 
around  the  flute,  P  the  perimeter  of  the  fluted  tube,  n  the  number  of  flutes 
around  the  circumference,  A£  the  control  volume  face  coinciding  with  the 


wall  and  I  the  number  o£  constant-^  lines  mapping  the  solution  domain. 

Three  different  fluids  have  been  considered  in  all  the  convective 

heat  transfer  studies:  air  (Pr  -  0.708),  water  (7.03)  and  ethylene  glycol 

(Pr  •  93)  at  20°C.  Figure  3.22  shows  the  distribution  of  mean  Nu  with 

P 

Reynolds  number  Re^(equation  (3.4))  for  those  three  Prandtl  numbers  for 

tubes  of  10,  20  and  30  flutes.  It  is  clear  that  for  air  there  is  no 

considerable  increase  of  Nusselt  number  with  Reynolds  number,  while  for 

water  there  is  an  increase  depending  on  the  number  of  flutes.  The  greater 

the  number  of  flutes  the  less  sensitive  the  Nusselt  number  of  water  to 

Reynolds  number.  So,  for  10  flutes,  the  Nusselt  number  at  Re^  -  2500  is 

about  5Z  above  that  at  Rep  -  300,  while  for  30  flutes  the  Nusselt  number 

is  almost  insensitive  to  Reynolds  number.  However,  the  effect  of  Reynolds 

number  on  Nusselt  number  is  much  stronger  for  ethylene  glycol  (Pr  -  93) 

showing  a  two-fold  increase  when  the  Reynolds  number  increases  from  40  to 

2500  for  the  tube  with  10  flutes.  This  augmentation  becomes  important 

even  at  Re  ■  100  while  for  20  flutes  there  is  also  an  enhancement  of 
P 

Nusselt  number,  though  it  is  less  than  that  for  10  flutes  and  becomes 

significant  only  at  Reynolds  numbers  above  500.  The  same  characteristics 

can  be  seen  for  the  tube  with  30  flutes;  however,  the  augmentation  of 

Nusselt  number  in  this  case  is  even  smaller,  becoming  noticeable  only  for 

Re  >  800. 

P 

The  explanation  of  the  contrasting  behaviour  between  the  different 
fluids  used  can  be  found  in  the  way  that  heat  is  transmitted  through  them: 
at  a  Reynolds  number  of  2500  and  n  -  10,  the  flute  Peclet  number  for  air, 
based  on  peak  circumferential  velocity  and  flute  height  Pe  -  P ,  is 
only  0.2.  This  means  that  convective  transport  has  a  minor  effect,  compared 


with  diffusive  transport,  on  the  heat  transmission  across  the  near-wall 
zone.  However,  for  ethylene  glycol  (Pr  -93)  the  flute  Peclet  number  is 
more  than  a  hundred  times  larger  (93/0.708)  so  convection  is  the  principal 
mechanism  in  transferring  heat  from  the  fluted  wall  into  the  fluid. 

Another  feature  of  Figure  3.22  is  that  for  a  fixed  Prandtl  number  the 
increase  of  Nusselt  number  increases  with  Reynolds  number.  This  can  be 
explained  partly  by  referring  to  equation  (2.14)  of  Chapter  2  where  an 
extra  convection  term  due  to  the  axial  velocity  (k^W  or  tc^W)  appears  in  the 
energy  equation  which  obviously  increases  with  Reynolds  number.  The  same 
type  of  behaviour  has  been  found  in  Date's  [67]  study  of  twisted  tape 
inserts  reported'  in  the  literature  survey. 

Figure  3.22  also  shows  that  for  ethylene  glycol  and  high  Reynolds 
numbers  the  level  of  Nusselt  number  for  the  10-flute  tube  is  higher  than 
that  for  20  or  30  flutes.  A  similar  behaviour  is  also  evident  for  20  flutes 
when  it  is  compared  with  the  30-flute  tube.  The  superiority  of  the  low 
flute-density  tubes  is  primarily  due  to  the  fact  that,  in  these  geometries, 
fluid  from  the  vicinity  of  the  flutes  is  carried  further  into  the  core  fluid 
(this  behaviour  has  been  discussed  in  the  previous  section  and  is  shown  in 
Figure  3.12).  So,  the  fact  that  the  enhancement  of  Nusselt  number  for  30 
flutes  is  lower  than  for  20  or  10  flutes  can  be  ascribed  to  two  factors: 
first,  the  confinement  of  the  fluid  circulating  in  the  flutes  closer  to  the 
wall  (Figure  3.12),  and  second,  the  low  values  of  flute  Peclet  numbers, 
even  for  ethylene  glycol;  at  Re^  ■  300  and  n  -  30  for  Pr  -  93,  the  flute 
Peclet  number  is  only  2.  The  increase  in  the  level  of  Nusselt  number  with 
the  number  of  flutes,  shown  in  Figure  3.22,  arises  from  the  definition  of 
Nusselt  number  itself.  If,  instead  of  equation  (3.5),  the  definition  given 


by  equation  (3.6)  haa  been  used,  the  levels  of  Nusselt  number  would  have 
fallen  below  the  smooth  tube  value  as  the  number  of  flutes  was  increased; 
that  is,  for  30  flutes  and  Re^  £  300,  to  3.6.  A  similar  distribution  is 
produced  if  the  definition  (3.7)  is  used. 

Figure  3.23  shows  for  10  flutes  at  Re  -  300  that  the  mean  Nusselt 

P 

number  (Nup)  increases  with  the  helix  angle,  that  increase  being  quite 
steady  for  Pr  »  93.  As  pointed  out  above  in  Section  3.12  a.  (Figure  3.11), 
for  spiral  angles  ranging  from  15°  to  45°  the  maximum  circumferential 
velocity  increases  in  roughly  the  same  ratio  as  the  tangent  of  the  helix 
angles.  So,  for  the  same  Reynolds  number  and  number  of  flutes,  the  flute 
Peclet  number  of  a  fluid  (water  or  ethylene  glycol)  will  increase  in  the 
same  ratio  as  the  maximum  circumferential  velocity  when  the  spiral  angle 
of  the  flutes  increases,  explaining  the  behaviour  shown  in  Figure  3.23. 

An  analogous  behaviour  would  have  been  shown  if  the  height  of  flutes 
rather  than  the  spiral  angle  had  been  increased.  A  significant  enhancement 
of  NUp  with  $  is  also  found  with  water  but  only  if  20  or  30  flutes  are 
employed  (Figure  3.24).  For  10  flutes  there  is  very  little  augmentation. 

Figure  3.25  gives,  for  ethylene  glycol  and  a  10-flute  tube,  the  Nu^  - 
Re^  distribution  for  two  spiral  angles:  $  -  15°  and  30°.  For  $  ■  30°  the 

enhancement  of  mean  Nusselt  number  at  Re  >  2000  becomes  more  than  100Z. 

P 

Perhaps  the  most  useful  dimensionless  quantity  to  consider  is  a 
measure  of  the  relative  increase  of  heat  transfer  and  frictional  losses. 
This  can  be  given  by  the  normalized  ratio  of  Stanton  number  to  friction 
factor  expressed  in  the  form: 


(3.10) 


f  f  t  /( i-  p»2 )  ' 

P  p  W  8 

Foe  a  smooch  Cube,  equation  (3.10)  Cakes  Che  value  0.068.  Again, 

while  Che  above  equation  expresses  local  values  around  Che  fluCe,  Che 

mean  value  can  be  calculated  using  equation  (3.9).  Figure  3.26  presenCs 

Pit  #  Sc 

the  distribution  of  Che  mean  value  of  ■  ^  ■  with  che  spiral  angle  for 

P 

both  waCer  and  ethylene  glycol,  while  Figure  3.27  gives  its  distribution 

with  the  helix  angle  for  water  for  three  different  numbers  of  flutes 

(n  -  10,  20,  30).  These  two  figures,  being  analogous  to  Figures  3.23  and 

Pr  .St 

3.24  discussed  above,  show  a  significant  increase  of  -■•”■■■- -  over  the 

P 

smooth  tube  value  indicating  that  the  spirally  fluted  tubes,  even  for 
moderate  Prandtl  numbers  (Pr  *  7.03)  in  laminar  flow  situations,  can  raise 
the  heat  transfer  coefficients  substantially  more  than  the  frictional  losses 

The  dimensionless  temperature  ratio 

T  -  T 

_ 'jc_ 

f  -  T 

wr 

(T  ,  the  temperature  on  the  wall  at  the  trough  position)  distribution 
r 

along  two  radii  passing  through  the  trough  and  crest  of  che  flute  is  given 

in  Figures  3.28,  3.29  and  3.30.  Figure  3.28  displays  this  distribution  for 

both  water  and  ethylene  glycol  in  a  tube  with  10  flutes  and  15°  spiral 

angle.  Differences  in  the  temperature  ratio  distribution  between  trough 

and  crest,  for  all  the  fluids  and  Reynolds  numbers  shown  in  Figure  3.28, 

Rv  -  R 

are  discernible  only  for  ■  —  <  0.2.  Since  the  distribution  of 
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wT 

~ —  shows  no  distinctive  features  for  Pr  -  7.03,  its  distribution  at 
T  “  TWr 

Re^  -  700  has  been  omitted  in  Figure  3.28  for  clarity.  However, 
at  Re^  -  2345,  a  quite  interesting  difference  in  shapes  between  water  and 
ethylene  glycol  can  be  detected.  It  is  clear  that  for  ethylene  glycol  the 
temperature  profile  is  divided  into  two  distinct  regions:  the  core  region, 
where  the  radial  heat  transport  is  by  conduction,  and  the  region  near  the 
flutes  where,  due  to  the  fluid  mixing  (fluid  spills  over  the  crest),  the 
temperature  becomes  uniform.  These  two  regions  become  less  noticeable  for 
lower  Reynolds  numbers  (see  Figures  3.28  and  3.29).  Masliyah  et  al  [63, 

64]  (see  literature  survey  in  Chapter  i)  have  encountered  the  same  shape 
in  the  distribution  of  the  temperature  ratio  (see  Figure  1.38)  when  they 
studied  the  heat  transfer  performance  of  fully-developed  laminar  flows 
through  uniformly  heated  internally-finned  tubes.  The  two  distinct  regions 
are  clearly  shown  on  curve  4  of  Figure  1.38.  Figure  3.30  displays  the 
distribution  of  the  dimensionless  temperature  ratio  at  the  trough  and  crest 
radii  for  ethylene  glycol  at  Re^  of  2345  for  both  10  and  30  flutes.  It  is 
obvious  from  this  figure  that  for  n  *  10  the  region  of  uniform  temperature 
is  more  extensive  than  for  n  ■  30.  This  is  due  to  the  fact  that  a  reduction 
in  the  number  of  flutes  increases  the  distance  from  the  tube  wall  over  which 


the  fluid  is  mixed. 


Figure  3.31  shows  the  variation  of  local  Nusselt  number  (Nu  )  around 
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the  flute  at  two  different  Reynolds  numbers  for  both  water  and  ethylene 
glycol.  For  the  low  Prandtl  number  the  distribution  of  Nu^  is  symmetric 
with  the  maximum  value  near  the  crest  and  the  minimum  in  the  trough  of  the 
flute.  For  an  increase  of  Reynolds  number  from  300  to  1700  the  local  Nup 
increases  in  the  trough  but  decreases  at  the  crest,  the  result  being  to 
increase  the  level  of  the  mean  Nup  (calculated  by  (3.9))  by  about  3%. 


However,  for  Che  high  Prandtl  fluid  (Fr  »  93)  for  Che  same  increase  of 
Reynolds  number,  che  level  of  Che  mean  Nusselt  number  rises  by  abouc  252, 

Che  disCribuCion  of  Che  local  Nup  ac  boCh  Reynolds  numbers  (300  and  1700} 
being  considerably  asymmecric.  This  disCribuCion  sCrengChens  Che  suggescion 
chac,  for  eChylene  glycol,  convecCive  Cransporc  is  Che  dominanc  mechanism 
in  cransferring  hea^  across  Che  near-wall  zone,  while  for  wacer  ic  makes 
a  minor  addicion  Co  diffusive  cransporc. 

Sc  .Pr 

The  variacion  of  local  — y-  -  around  Che  fluCe  for  wacer  and  eChylene 

P 

glycol  for  Che  same  Cube  geomeCry  and  Reynolds  numbers  as  Che  discribucions 

shown  in  Figure  3.31,  is  shown  in  Figure  3.32.  For  boch  water  and  eChylene 

St  oPt 

glycol  Che  disCribuCion  of  local  — y —  is  quice  symmetric  wich  Che 

P 

minimum  value  near  Che  fluCe  crest  and  Che  maximum  value  occurring  in  che 

trough .  It  is  obvious  that  there  is  a  large  difference  in  the  levels  of 

che  minimum  and  maximum  values  for  all  the  cases  plotted  in  Figure  3.32. 

For  water,  the  two  curves  (Rep  ■  300  and  1700)  are  almost  indistinguishable 

SC  Pr 

while  for  ethylene  glycol  a  232  rise  in  the  mean  value  of  —j —  for  the 

P 

same  increase  in  Reynolds  number  can  be  easily  identified. 


3.2  Concluding  Remarks 

Chapters  2  and  3  have  presented  che  successful  adaptation  of  che 
general  orthogonal  TEACH  code  for  solving  the  laminar  velocity  and 
temperature  fields  in  a  spirally  fluted  tube.  The  principal  steps  which 
improved  the  convergence  of  the  solution  were  the  inclusion  of  the  two- 
stage  pressure-correction  procedure,  che  so-called  PIS0  scheme,  and  the 
use  of  a  mixed  curvilinear /cylindrical-polar  grid  instead  of  che  original 
curvilinear  one.  However,  in  cases  of  high  flute  density  where  high  aspect 


ratio  cells  are  still  present,  the  convergence  is  not  entirely  satisfactory. 
The  adoption  of  a  non-orthogonal  grid  should  solve  this  problem  and  lead 
to  a  more  rapid  convergence  of  the  iterative  solution. 

The  effects  of  different  parameter  variations  and,  generally,  the 
flow  pattern  produced  by  the  computations  now  seem  entirely  plausible. 
However,  at  the  beginning  of  the  project,  since  no  experimental  data  for 
laminar  flows  were  available,  it  was  very  difficult  to  imagine  what  flow 
pattern  would  actually  be  produced  in  such  a  tube.  There  has,  to  the 
author's  knowledge,  been  nothing  reported  on  computational  studies  of  flows 
in  pipes  with  such  a  combination  of  complexities  encountered  during  the 
study  of  the  spirally  fluted  tubes.  In  view  of  the  experimental  difficulties 
referred  to,  it  is  believed  that  the  computational  procedure  here  developed 
can  be  usefully  applied  to  the  optimization  of  the  design  of  spirally 
fluted  tubes. 

The  numerical  results  show  clearly  the  mechanism  behind  the  heat 
transfer  augmentation  and  explain  why  there  is  no  marked  effect  on  the 
level  of  friction  factor  due  to  the  fluting.  These  results  also  verify 
the  suggestion  that  friction  and  heat  transfer  must  be  considerably 
affected  by  what  is  happening  in  the  immediate  vicinity  of  the  tube  wall. 

It  is  very  interesting  that  even  for  water  the  increase  in  heat  transfer 
is  several  times  greater  than  the  increase  in  friction  factor.  Considering 
that  all  other  enhancement  techniques  for  internal  flows  raise  the  friction 
factors  substantially  more  than  the  heat  transfer  coefficients,  the  fact 
that  the  spirally  fluted  tube  produces  a  contrary  behaviour,  even  for 
moderate  Prandtl  numbers,  indicates  that  this  type  of  tube  could  be  used, 
quite  beneficially,  in  heat  exchangers.  A  far  better  improvement  is  found 


for  ethylene  glycol,  meaning  that  spiral  fluting  could  be  adopted  m  oil 
coolers  since  the  circulation  of  oils  often  takes  place  in  the  laminar 
regime.  In  this  case,  low  flute  density  and  tight  spiralling  gives  the 
best  performance,  while  for  low  Prandtl  numbers  (i.e.  water),  high  flute 
density  and  tight  spiralling  tubes  should  be  adopted.  Of  course,  beyond  a 
certain  helix  angle,  the  improvement  will  be  reversed,  chough  the 
identification  of  this  limit  has  not  been  possible  in  Che  present  research 
programme . 


PIG  3-7  VELOCITY  DIRECTION  LINES 
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CHAPTER  4 

4 .  THE  TURBULENT  FLOW  PROCEDURE 


Introduction 


The  next  step  in  the  development  of  the  procedure  reported  in 
Chapters  2  and  3  has  been  the  calculation  of  turbulent  flow  since  in  this 
regime  lie  most  of  the  industrial  applications  of  spirally  fluted  tubes. 


The  present  chapter  reports  all  the  modifications  and  additions  made 
in  the  computational  procedure  (reported  in  Chapter  2)  in  order  to  handle 
turbulent  flows.  The  following  sections  describe  the  grid  adopted,  the 
equations  solved,  the  boundary  conditions  applied,  the  turbulence  models 
used  and  the  computational  solution  procedure  followed  in  order  to  overcome 
the  problems  arising  in  the  prediction  of  such  a  complex  flow. 


4 . 1  The  Turbulence  Models  Adopted 

4.1.1  General  Considerations 

Although  the  usual  practice  in  the  solution  of  turbulent  elliptic 
flows  is  to  adopt  wall  functions  for  the  near-wall  region,  apart  from 
preliminary  calculations,  that  practice  has  not  been  followed  in  the  present 
work.  It  was  felt  that  strong  skewing  of  the  velocity  profile  that  occurs 
very  near  the  flute  surface  could  only  be  correctly  predicted  by  adopting 
a  fine  grid  and  a  low-Reynolds-number  model  of  turbulence.  So  far  as  the 
choice  of  such  a  model  was  concerned,  it  was  thought  desirable,  at  least 
for  this  initial  study,  to  adopt  a  simple  turbulence  model  like  the  mixing 


length  hypothesis  including  already  established  viscous-damping  effects 
for  it  was  clear  that  the  most  important  physical  features  to  express 

were  the  suppression  of  turbulence  by  the  flutes  and  the  associated 
viscous  flow  behaviour. 

For  the  rest  of  the  solution  domain,  it  was  believed  that  a  purely 
Boussinesq  stress-strain  law  would  not  be  sufficient  to  express  the  complex 
strain  field  of  the  flow.  It  seemed  that  the  most  appropriate  model  of 
turbulence  to  adopt  was  an  algebraic  stress  closure  (see  Launder  [92]). 
However,  because  of  the  complexity  of  the  equations  solved,  instead  of  a 
full  algebraic  stress  model,  a  k-c  Boussinesq  turbulence  model  has  been 
used,  followed  by  a  simplified  algebraic  stress  model  to  allow  some  of 
Che  conjectures  on  the  physical  mechanisms  at  work  to  be  tested.  The  more 
complex  turbulence  models  have  been  adopted  in  the  region  where  a 
cylindrical-polar  grid  was  applied  (the  grid  description  can  be  found  in 
Section  4.2.1).  The  fact  that  the  use  of  a  cylindrical-polar  grid  for  most 
of  the  solution  domain  had  been  found  numerically  beneficial  for  laminar 
flow  computations  was  very  fortunate  since  it  was  much  easier  to  adopt  an 
algebraically  complex  turbulence  model  in  this  region  chan  in  the  region 
of  the  flutes  where  the  curvilinear  grid  was  applied. 

A  short  description  follows  on  the  different  turbulence  models  which 
have  been  adopted  in  different  regions  of  the  solution  domain. 


4.1.2  Mixing  Length  Hypothesis 


Within  Che  immediate  vicinity  of  Che  flutes,  where  molecular  transport 
becomes  significant,  a  fine  mesh  has  been  adopted  (shown  in  Figure  4.1  for 


three  different  geometries:  n«  10,  20  and  30).  The  turbulent  viscosity 


Ut  is  prescribed  by  way  of  Prandtl's  mixing  length  hypothesis  with  Van 
Driest* s  damping  function.  With  this  formulation 


U 


t 


film2 


aw 

3n 


(4.1) 


where 
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<  is  the  Von  Karman  constant  here  given  the  value  0.4187  (  Patel  and  Head 
[  108] ) ,  p  is  the  density,  |i  the  laminar  viscosity,  Tw  the  local  wall  shear 
stress  and  y  the  distance  from  Che  node  in  question  to  the  nearest  node  on 
the  wall. 


The  choice  of  the  equation  for  the  turbulent  thermal  diffusivity  Tc 
has  been  a  difficult  task  since  more  than  thirty  analytical  models  of 
turbulent  thermal  transport  processes  have  been  reported  in  the  last  twenty- 
five  years.  An  impression  of  the  variety  of  the  proposed  models  can  be 
gained  by  studying  the  report  of  Reynolds  [99].  Launder  [98],  reviewing 
Reynolds'  [99]  comprehensive  survey  of  models  for  turbulent  Prandtl  numbers, 
classifies  these  in  three  groups  depending  on  the  idea  behind  their  derivation: 

i)  Mixing-Length  models:  where  lumps  of  fluid  are 
displaced  from  one  region  to  another  and  in 
movement  lose  heat  by  conduction  to  the  surrounding 
fluid | 
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ii)  Surface-Renewal  models:  similar  to  the  previous 
group  except  that  attention  is  focused  on  the 
"residence  time"  of  an  eddy; 

and  iii)  Lagrangian  Diffusivity  models:  where  the 

effective  diffusivity  is  expressed  in  terms  of 
Lagrangian  length  scales. 


Although  Patankar  [96]  uses  a  constant  turbulent  PrandCl  number  of 
0.9  for  his  study  of  turbulent  boundary  layers  with  pressure  gradients, 
our  computations  of  smooch  tubes  have  shown  that  Cebeci's  model  [[94]  gives 
better  agreement  with  the  experimental  data  reported  by  Kays  (£73*  In  this 
case  the  maximum  error  in  Nusselt  numbers  was  2.5Z  for  a  calcium  chloride 
solution  (Pr  ■  19.6)  and  high  Reynolds  numbers. 


Cebeci  [  95]  gives  n  expression  for  the  turbulent  Frandtl  number  as 
a  function  of  molecular  Prandtl  number  for  the  near-wall  region  and  a 
constant,  0.9,  for  the  rest  of  the  solution  domain.  Cebeci  reports  that 
his  model  gives  results  in  good  agreement  with  Che  experimental  data  for 
low,  medium  and  high  molecular  PrandCl  numbers.  He  also  reports  that 
several  incompressible  turbulent  flows  have  shown  that  with  variable 
turbulent  Prandtl  numbers  the  temperature  profiles  are  in  better  agreement 
with  experiments  than  those  obtained  by  using  a  constant  turbulent  Prandtl 
number.  His  equation  for  the  turbulent  thermal  diffusivity  has  the  form: 
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K *  -  0.44 
B+  -  B++//Pr 

B++  is  given  in  reference  [95]  in  graphical  form  and  co  which  Che  following 
expressions  have  been  ficced  in  the  present  study: 

B++  -  476.2  Pr2  -  188.1  Pr  +  38.57,  0.02  <  Pr  «  0.3 

B**  -  0.102  Pr2  ♦  9.08  Pr  +  22.4,  0.3  <  Pr  <  7 

B++  -  5.16  Pr  +  58.9  ,  7  <  Pr 


4.1.3  The  k~e  Boussinesq  Viscosity  Model 

Except  for  the  thin  region  around  the  flutes,  the  Boussinesq 
viscosity  model,  described  in  Jones  and  Launder  [68]  and  Launder  and  Spalding 
[lOO]  ,  has  been  used  in  its  high  Reynolds  number  form  to  determine  the 
turbulent  viscosity 

Ut  •  cypk2/e  C4.3) 

where  the  turbulent  kinetic  energy  k  and  its  rate  of  viscous  dissipation 
e  were  obtained  from  the  following  approximate  transport  equations: 


k  equation 
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Launder  and  Spalding  [  100J  in  their  study  of  numerical  computation  of 
turbulent  flovs  conclude  that,  after  application  in  a  wide  range  of  flows, 
the  k-e  model  has  been  proved  to  be  "the  simplest  kind  of  model  that 
permits  prediction  of  both  near-wall  and  free-shear-f low  phenomena  without 
adjustments  to  constants  or  functions".  They  also  point  out  the  need  for 
replacement  of  the  isotropic  viscosity  formula  by  more  general  expressions 
connecting  the  stress  and  strain  fields  in  turbulent  flows.  In  this 
direction,  the  Algebraic-Stress-Model  has  been  derived,  a  simplified  form 
of  which  has  been  used  in  the  present  research  and  is  described  below. 


4.1.4  Simplified  Algebraic-S tress -Model 
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can  Cake  Che  form: 


Duiu 


Dt 


-  P.  .  ♦  G. .  -  e. .  ♦  4. .  ♦  D. . 
ij  ij  ij  *ij  ij 


(4.9a) 


In  Chis  equation  Che  aCreaa  generation  terms  P.^  and  G.^  may  be  considered 

as  exactly  representable.  However,  in  order  Co  solve  (4.9a),  all  the 

ocher  terms  must  be  modelled  using  correlations  consisting  of  the  mean 

velocities,  Reynolds  stresses  and  one  or  more  parameters  characterizing 

a  length  scale  of  turbulence  or  some  parameter  such  as  the  turbulence 

energy  dissipation  rate  (see  Launder  [  107] ) .  In  local  equilibrium  approx- 

OuTin 

imation,  the  contribution  of  «  •  and  D>  •  is  neglected.  This  leaves 

t  J 

only  the  terms  e.  .  and  d>..  to  be  modelled..  The  most  widely  recommended 
J  ij  Tij  7 

forms  for  high  Re  free  flows  (Launder  [  103]  )  are : 
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where 
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Thus,  the  equation  (4.9a)  can  be  organized  into  the  form: 
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which  is  known  as  the  Algebraic  Stress  Model  (ASM).  The  corresponding 


exact  form  of  the  energy  flux  equation  is 


(4.12) 


By  ignoring  terms  III  and  V  and  modelling  term  IV  (Launder  [  103]  ),  the 
following  equation  is  formed: 
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The  original  plan  had  been  to  explore  fully  the  above  equations. 


However,  the  extreme  time  for  convergence  of  the  solution  procedure  even  with 
the  k~e  model  meant  that  this  was  not  feasible.  Therefore,  it  has  been 
necessary  to  limit  attention  to  two  very  much  simplified  forms  of  the  above 


equations,  each  of  which  reduces  to  the  same  form  as  the  k~e  Boussinesq 
viscosity  model  but  with  variable  and  Pr£. 

Two  distinct  physical  effects  of  swirl  are  considered  which,  in  the 
case  of  the  flow  through  a  spirally  fluted  tube,  are  simultaneonsly  present 
(a)  the  effect  of  swirl  associated  with  the  additional  strain  it  introduces 
and  (b)  the  effect  of  "buoyancy"  in  which,  due  to  the  swirl,  heavy  fluid 
packages  are  centrifuged  preferentially  outwards.  Effect  (a)  arises 
through  the  term  P_,  while  (b)  is  due  to  C„ .  Here,  these  two  effects 
are  considered  separately  so  that  the  importance  of  each  can  be  readily 
assessed.  The  limited  aim  of  the  study  has  been  to  ascertain  whether  the 
remarkable  behaviour  of  spirally  fluted  tubes,  which  is  not  adequately 
predicted  with  purely  isotropic  models,  can  plausibly  be  attributed  to 
either  of  the  effects  which,  in  other  flows,  these  models  have  been  found 
to  mimic  satisfactorily. 

The  forms  of  the  equations  adopted  are  strictly  applicable  only  in 
flows  remote  from  the  influence  of  the  wall.  In  the  vicinity  of  the  wall, 
pressure  reflections  from  the  surface  modify  the  relative  distribution  of 
turbulence  energy  among  the  components.  In  the  present  work  no  additional 
terms  have  been  introduced  to  simulate  wall  reflections.  There  were  three 
reasons  for  this: 

1)  Corrections  are  only  well  established  for  a  flat  surface 
(Launder  [  10 1] )  which,  of  course,  is  very  different 
from  a  spirally  fluted  surface. 

2)  Even  to  use  the  plane  flow  corrections  would  greatly 
complicate  the  application  of  the  model. 


V 


3)  In  the  cylindrical  polar  region  (which  includes  only 
the  region  up  to  0.8  R^)  the  effects  of  the  wall 
pressure  reflections  are  relatively  minor. 


(a)  Swirl  Flow  Treatment 

Younnis  [102]  has  recently  shown  that  for  axi symmetric  swirling  flows 
equation  (4.11)  leads  to  broadly  the  correct  development  of  free  swirling 
jets  if  Cj  ■  0.3  and  c^  ■  3.0.  In  cylindrical  polar  co-ordinates,  if  only 
radial  gradients  are  retained,  the  following  expressions  are  obtained  for 
the  Reynolds  stress  components  (see  Launder,  Reece,  Rodi  [93]): 
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From  the  equations  (4.14a)  to  (4.14d),  the  following  equation  can  be  formed: 


3W  k2  v2  (l-c„) 


(2  -c„)  U  k2  U 


(4.15a) 


0  being  the  temperature  difference  (T  -  T  p ,  ®'  *-ts  fluctuation  and 
P*  -  P  +  G. 

Gibson  and  Launder  [69]  have  applied  a  slightly  more  elaborate  form 
of  equations  (4.18)  and  (4.20)  to  the  calculation  of  horizontal  shear  flows. 
The  physics  of  gravitational  modification  to  turbulent  mixing  of  such  flows 
is  analogous  to  that  of  the  radial  centrifuging  of  heavy  eddies  in  a  spirally 
fluted  tube,  due  to  the  swirling  motion  induced.  In  the  latter  case,  the 
effective  "gravitational  acceleration"  is  U2/r  and,  unlike  g,  varies  from 
point  to  point  in  the  flow. 

4.1.  5  Matching  the  Near-Wall  and  Fully  Turbulent  Regions 

For  most  of  the  results,  discussed  in  the  next  chapter,  two  turbulence 
models  have  been  used  at  the  same  time  in  different  regions  of  the  solution 
domain:  the  mixing-length  hypothesis  with  the  Van  Driest  damping  function 
(see  Section  4.1.2)  for  the  low-Reynolds-number  region  near  the  tube  wall. 


and  che  k~e  Boussinesq  viscosity  model  (see  Section  4.1.3)  in  the  region 
where  molecular  effects  were  negligible.  The  junction  of  the  two  turbulence 
models  has  been  achieved  by  applying,  at  the  first  5 -direction  row  of  cells 
just  outside  the  k~e  region  and  inside  the  mixing-length  hypothesis  region, 
the  following  boundary  conditions  for  turbulent  energy  k  and  its  dissipation 


e: 


k 


(4.22) 


where 


(4.23) 


G  is  the  generation  term  given  by  equation  (4.7)  and  calculated  using  the 
values  from  the  mixing-length  region,  including  ut.  The  same  applies  for 
equation  (4.22)  where,  again,  ut  is  calculated  from  equation  (4.1): 
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For  some  of  the  results,  discussed  in  Chapter  5,  a  third  turbulence  model 
has  been  added  to  che  previous  two.  Two  forms  of  the  simplified  algebraic- 
stress  model  (see  Section  4.1.4)  have  been  applied  separately  to  the  core 
region  of  the  tube.  Figure  4.2  shows  the  regions  of  application  of  the 
various  turbulence  models. 


4.2  Numerical  Aspects  of  Treatment  for  Turbulent  Flows 
4.2.1  The  Describing  Equations  and  Boundary  Conditions 


As  in  the  laminar  flow  calculations,  attention  was  limited  to 
turbulent  flows  which  were  fully  developed  in  the  direction  following  the 


spiralling  of  the  flutes  (4).  The  flow  field  was  analysed  over  the 
region  shown  in  Figure  4.3  created  by  the  grid-program  reported  in 
Appendix  1  and  Section  2.2  of  Chapter  2.  However,  the  numerical  comp¬ 
utations  of  turbulent  flows  were  not  confined  to  the  region  bounded  by 
radius  Rfl  but  extended  to  the  pipe  axis.  Since  it  had  been  proved 
experimentally  that,  over  a  substantial  proportion  of  the  core,  circum- 
ferential  variations  were  entirely  negligible,  for  radii  less  than  R&,  the 
describing  equations  have  been  solved  along  just  one  radial  string  of 
nodes  with  circumferential  variations  set  to  zero  in  order  to  save  core 
memory  and  confuting  time.  The  above  practice  has  been  adopted  for, 
unlike  laminar  flow,  there  is  no  analytical  solution  to  which  the  flow 
could  be  matched  at  some  radius  R&.  Figure  4.4  shows  the  grid  coverage  of 
the  complete  cross-stream  plane  of  the  tube.  The  co-ordinate  system  used 
has  been  described  in  Section  2.2.  The  main  differences  are  the  values  of 
the  boundary  radius  R&  and  the  matching  radius  R^  as  well  as  the  way  hQ/h 

decreases  from  one  at  the  tube  wall  to  zero  at  R  .  For  the  turbulent 

m 

flow  computations,  R&  has  been  chosen  0.54  R^  (or  0.65  R^  for  20  and  30 

flutes)  because  it  was  expected  that  solid  body  rotation  would  affect  a 

larger  part  of  the  flow  than  for  the  laminar  regime,  while  R  took  the 

m 

value  0.88  R^  since  a  better  distribution  of  nodes  was  produced.  Because 
(as  explained  later)  a  very  fine  grid  was  required  near  the  tube  wall,  a 
linear  decrease  of  h0/h  was  no  longer  suitable.  Figure  4.5  shows  the  new 
distribution  of  h0/h  given  by  the  equation 


and  y  takes  constant  values  depending  on  the  number  of  flutes 


The  continuity,  momentum  and  energy  equations  solved  have  the  form 


Continuity 
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n- Momentum 
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Energy  Equation 
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The  undefined  symbols  appearing  in  the  above  equations  have  the  following 
significance: 
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The  rest  of  the  symbols  are  given  in  Section  2.3  of  Chapter  2  (equation 
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For  the  core  region  ( from  the  tube  axis  to  radius  Rj  where  no 

changes  in  the  circumferential  direction  exist,  the  equations  describing 

the  flow  (solved  along  one  radial  string  of  nodes)  may  be  written: 

5 -Mo men turn 

d2U  1  d  r  dU  I  U  dU  due 

dr2  r  dr  L  6  dr  ■*  e  r2  dr  dr  (4.31) 
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e-Equation 


(4.37) 


The  finice  volume  discretization  of  the  above  equations  and  their 
successful  incorporation  into  the  computer  code  are  presented  in  Section 
4.2.2. 


The  boundary  conditions  are  the  same  as  those  described  in  Section 
2.4  for  laminar  flows  except  for  the  south  boundary.  At  the  tube  surface 
the  velocity  components  are  all  set  to  zero  and  a  uniform  heat  flux  is 
applied.  The  cyclic  character  of  the  flow  from  one  -flute  to  the  next  is 
achieved  by  setting  the  dependent  variables  at  the  left-hand  boundary 
equal  to  those  on  the  right  and  vice  versa,  in  addition  to  the  special 
treatment  introduced  in  the  sub-routine  which  solves  the  discretized  from 
of  the  partial  differential  equations.  At  the  tube  axis  the  radial  and 
circumferential  velocity  components  are  set  to  zero,  as  is  the  radial 
gradient  of  the  streamrise  component  and  the  temperature.  So,  on  the  tube 
axis  the  conditions 


U  -  0,  V 


have  been  applied. 


(4.38) 


4.2.2  Discretization  of  the  Partial  Differential  Equations 
4.2.2a  Two-Dimensional  Region 

Equations  (4.25)  to  (4.29)  are  identical  to  those  presented  in 
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Section  2.3  for  the  laminar  regime  except  that  the  effective  value  of 
viscosity  is  used  instead  of  the  molecular  one.  Thus,  all  the  equations 
derived  in  2.5a  may  be  taken  over  for  the  turbulent  case,  provided  that  u 
is  replaced  by  ug.  Equations  (4.4)  and  (4.5)  for  the  turbulent  kinetic 
energy  k  and  its  rate  of  viscous  dissipation  e  can  be  converted  to  the 
general  form  of  equation  (2.13)  (Section  2.5a)  if  we  take 
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and  if 
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The  extra  feature  which  must  be  introduced  here  is  the  treatment  of  the 
core  region,  namely  the  derivation  of  the  finite-difference  equations  for 
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Che  one-dimensional  region  and  their  inclusion  in  Che  computer  code. 


4.2.2b  One-Dimensional  Region 

Since  no  circumferential  variations  are  present  in  the  core  region 
(the  radial  velocity  is  zero  (solid  body  rotation)  and  ■  0  (radial  string 
of  nodes)  )  equation  (2.13)  takes  the  form: 
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(4.43) 


where  4  may  stand  for  u *  W  or  0  (and  k,e  if  the  (k— e)  turbulence  model  is 
used.  Equations  (4.43)  and  (4.31)  -  (4.37)  yield: 


if  ♦  5  U  rlt  -  u 

u  a 


U  dU  du 

SU  ’  -  Me  ", - 5 

r2  dr  dr 


(4.44) 


if  4  3  w  rw  -  Ue 


h’-i 


(4.45) 


if  4  =  0 
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Integrating  equation  (4.43)  over  the  distance  Ar  shown  in  Figure 


4.6,  the  following  equation  is  formed: 
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where  n,  s,  P  are  north,  south  and  middle  positions  respectively  of  the 

distance  Ar,  indicated  in  Figure  4.6.  Analysing  further  the  derivatives 
d$ 

•jjj-  equation  (4.49)  becomes: 
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Equation  (4.50)  is  similar  to  (2.38)  since  it  can  be  written  as: 
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where 
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fdU  du 


while  for  $  =  U  SU  ■  - 1— 
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The  radial  momentum  equation  is  not  solved  in  the  core  region  since  V  ■  0 
(equation  (4.34)). 


A  detailed  description  of  the  computer  code  used  for  the  solution 
of  the  above  equations  can  be  found  in  Appendix  5. 
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4.3.1  Use  of  the  Mixing-Length  Hypo thesis  for  the  Whole  Solution  Domain 

The  initial  computations  adopted  the  mixing-length  hypothesis 
throughout  the  solution  domain  for  the  calculation  of  turbulent  flows  in  a 
smooth  pipe.  The  cross-stream  section  was  covered  by  a  polar  grid  with 
44  radial  nodes  where,  for  the  20  nodes  closest  to  the  pipe  axis,  the 
dependent  variables  were  held  in  a  one-dimensional  string.  The  matching 
radius  R^  between  the  two-dimensional  and  the  one-dimensional  regions  was 
0.9  (although  for  a  smooth  tube  a  distinction  between  one-dimensional 
and  two-dimensional  regions  in  the  solution  domain  is  not  necessary,  this 
arrangement  was  maintained  for  uniformity)  and  the  error  found  for  the 
friction  factor,  compared  with  the  values  given  from  equation  f  -  0.3164 
Re  ’  ,  was  about  0.4Z.  Although  this  accuracy  in  the  calculation  of 

friction  factor  was  satisfactory,  the  fine  grid  used  near  the  wall  was 
very  difficult  to  be  achieved  for  the  real  geometry  of  the  fluted  wall. 

The  problem  was  overcome  by  applying  a  cubic  spline  to  represent  the 
highly  non-linear  variations  in  turbulent  transport  coefficients  at  the 
surfaces  of  the  scalar  cells  near  the  wall.  This  allowed  acceptable  accuracy 
with  a  relatively  coarse  grid.  For  example,  the  number  of  radial  nodes 
needed  for  0.4Z  accuracy  in  friction  factor  in  the  two-dimensional  region 
could  be  decreased  from  24  to  18,  while  an  acceptable  error  of  0.82  was 
produced  when  the  radial  nodes  were  decreased  fruther  to  14.  The  above- 
mentioned  cubic-spline  treatment  of  the  near-wall  region  has  been  main¬ 
tained  throughout  the  turbulent  flow  computations  as  long  as  the  mixing- 
length  hypothesis  was  applied. 


The  next  step  in  the  procedure  was  to  switch  to  the  real  geometry 
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using  Che  mixing-length  hypothesis  for  the  whole  solution  domain. 
Computations  have  been  made  using  18  nodes  to  span  the  circumferential  arc 
covering  one  flute  and  40  radial  nodes.  Of  the  latter,  20  nodes  mapped 
the  one-dimensional  region,  while  of  the  remaining  20  nodes,  12  were  in 
the  cylindrical-polar  part  and  8  in  the  curvilinear  near  the  wall. 

Figure  4.7  shows  this  grid  where  R&  ■  0.4  R^»  R^  ■  0.88  R^»  h  -  0.06  R^, 
n  -  10  and  $  -  15°. 


Convergence  of  the  solution  proved  to  be  difficult  to  secure.  After 
many  tests  (for  the  grid  used  and  the  effect  of  each  one  of  the  equations 
on  the  solution  convergence),  the  following  combination  of  under-relaxation 
factors  was  found  to  give  the  best  convergence  behaviour  (lowering  the 
residuals  to  an  acceptable  level  of  1  x  10  after  2000  iterations  for  a 
Reynolds  number  of  3  x  10  )  :  for  the  ^-direction  velocity  0.6  increased 
to  0.7  after  500  iterations,  for  the  ^-direction  velocity  0.6,  for  the 
axial  velocity  0.8  decreased  to  0.7  at  about  the  same  time  the  under¬ 
relaxation  factor  for  U  changes,  for  the  pressure  1.0,  and  for  viscosity 
0.8.  It  should  be  pointed  out  that,  as  in  the  laminar  flow  computations 
(see  Section  2.5b),  the  equations  were  solved  by  the  recently  developed 
PISO  algorithm  described  in  Issa  [79] ,  Gosman  et  al  [80J  and  Appendix  3. 

This  new  algorithm  allowed  the  use  of  high  under-relaxation  factors  for 
pressure  (1.0),  thus  improving  the  convergence  rate  of  the  solution  procedure 
and  reducing  computing  times. 

For  all  the  turbulent  flow  computations,  the  under-relaxation  factors 
used  for  the  one-dimensional  region  were  the  same  with  those  applied  in  the 
rest  of  the  solution  domain. 


4.3.2  Use  of  the  k~e  Boussinesq  Viscosity  Model  with  Wall  Functions 

As  an  initial  test,  a  coarse-grid  wall-function  approach  has  also 
been  adopted  in  the  numerical  solution  scheme.  As  in  the  case  of  the 
mixing-length  hypothesis,  the  new  model  has  been  tested  against  the  flow 
through  a  straight  unfluted  tube.  Using  a  polar  grid  with  42  radial  nodes 
from  which  20  were  covering  the  one-dimensional  region  from  R&  •  0.3  R^  to 
the  pipe  axis,  an  agreement  of  \Z  has  been  found  for  the  friction  factor 
compared  with  the  value  given  by  the  analytical  Blasius  equation 
f  -  0.3164  Re"0,25. 

The  real  geometry  of  the  spirally  fluted  tube  has  been  solved  by 

using  the  grid  shown  in  Figure  4.8  where  Rfi  «  0.3  R^,  Rffl  *  0.85  R^, 

h  ■  0.06  R^,  n  ■  10  and  »  15°.  Again,  18  nodes  span  the  circumferential 

arc,  while  from  the  42  radial  nodes,  20  are  in  the  one-dimensional  region, 

16  in  the  cylindrical-polar  part  of  the  grid  and  6  in  the  curvilinear  part 

near  the  wall.  The  solution  converged  easily  after  1000  iterations  to  a 
-3 

level  of  1  x  10  using  the  following  under-relaxation  factors:  for  the 
^-direction  velocity  0.9,  for  the  n-direction  velocity  0.8,  for  the 
axial  velocity  0.95,  for  the  pressure  1.0,  for  viscosity  0.8  and  for 
kinetic  energy  k  and  its  dissipation  e  0.8.  Figure  4.9  shows  the  induced 
swirl  velocity  on  two  radial  lines  passing  through  the  trough  and  the  crest 
of  the  flute  for  both  the  turbulence  models  used  separately,  mixing-length 
hypothesis  and  fc-e  Boussinesq  viscosity  model.  It  is  clear  that  the  latter 
gives  its  maximum  value  at  the  near-wall  node,  so  no  certainty  could  be 
placed  on  this  value . 


4.3.3  Combination  of  the  Mixing-Length  and  k-e  Turbulence  Models 


A  fine-grid  analysis  was  introduced  in  the  near-wall  region  where 
the  mixing-length  hypothesis  with  Van  Driest 'a  damping  function  was  used  to 
predict  the  low-Reynolds-number  area,  while  in  the  rest  of  the  solution 
domain  the  k-e  Boussinesq  viscosity  model  was  adopted,  the  changeover 
taking  place  as  soon  as  all  Che  nodes  on  a  £ -direction  row  of  cells  were 

located  in  fully  turbulent  flow.  The  grid  used  is  shown  in  Figure  4.1. 

o  4 

The  solution  for  10  flutes,  15  spiral  angle  and  Reynolds  number  of  3  x  10 
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converged  to  a  level  of. 5  x  10  after  1700  iterations  using  the  same  under¬ 
relaxation  factors  as  in  the  case  mentioned  in  Section  4.3.1.  However, 
bearing  in  mind  chat  this  geometry  was  the  easiest  one  as  far  as  the 
convergence  of  the  solution  procedure  was  concerned  and  the  Reynolds  number 
low,  it  was  felt  to  be  essential  to  explore  ways  of  accelerating  convergence 
rates  and  reducing  computing  times. 

Arising  from  this  exploration,  the  parabolic-sublayer  treatment 
(PSL),  described  in  Iacovides  and  Launder  [lQ5]  ,  has  been  adopted  which 
has  improved  the  rates  of  convergence  for  tubes  with  10  flutes  by  a  factor 
of  3,  while  giving  final  results  that  were  negligibly  different  from  those 
obtained  by  applying  the  elliptic  solver  throughout.  For  a  turbulent 
elliptic  flow,  three  alternative  near-wall  treatments  can  be  applied,  shown 
in  Figure  4.10  (taken  from  Launder  [l06] ) ,  where  since  the  computer  code  is 
based  on  a  finite-volume  discretization,  a  column  of  scalar  cells  normal  to 
the  wall  has  been  drawn  for  each  of  the  three  methods.  Column  (a)  presents 
the  wall-function  approach  where  the  near-wall  node  is  placed  in  fully 
turbulent  fluid,  while  column  (b)  illustrates,  the  usual  alternative  to 
the  use  of  wall  functions,  an  elliptic  fine  grid  over  which  some  low-ReynoldS' 
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number  turbulence  models  are  used  (in  our  case,  Che  mixing-length  hypothesis). 
Column  (c)  shows  the  parabolic  sublayer  approach  where,  for  a  thin  band 
in  the  immediate  vicinity  of  the  tube  wall  (covering  2  or  3  rows  of 
control  volumes  next  to  the  surface),  the  pressure  is  taken  equal  to  that 
at  the  node  just  outside  this  band.  So,  no  extra  work  has  to  be  done  for 
any  pressure-correction  procedure  while  the  n -none n Cum  equation  is  not 
solved,  the  values  of  V  within  this  band  being  calculated  by  application  of 
Che  continuity  equation  to  each  pressure  control  volume.  For  most  of  the 
runs,  the  PSL  treatment  has  replaced  the  conventional  elliptic  treatment 
while  its  adaptation  into  the  computer  code  is  presented  in  Appendix  5. 


As  in  the  laminar  flow  computations  for  a  given  number  of  flutes, 
once  a  solution  has  been  obtained,  the  effects  of  Reynolds  number  or 
variations  in  the  tube  geometry  were  examined  using  this  existing  solution 
as  the  initial  field  for  the  further  studies.  The  velocity  field  was 
solved  first  and  stored  prior  to  solving  the  energy  equation.  For  the 
latter,  although  the  grids,  shown  in  Figure  4.5,  were  quite  fine  near  Che 
wall,  two  extra  grid  points  were  placed  in  the  row  of  cells  attached  to  the 
wall  in  order  to  solve  the  high  Reynolds  numbers  or  high  Prandtl  numbers 
cases  (see  Appendix  5). 


The  rates  of  convergence  depended  greatly  on  the  number  of  flutes  and 
the  Reynolds  number.  For  10  flutes  the  number  of  iterations  required, 

starting  from  a  uniform  initial  field,  increased  from  about  500  at  a 

4  4 

Reynolds  number  of  3  x  10  to  approximately  850  for  Re  ■  8  x  10  .  The 

under-relaxation  factors  used  were:  0.8  for  the  ^-direction  velocity  and 

n-direction  velocity  ,  0.9  for  the  axial  velocity  ,  0.8  for  the  turbulence 

energy  k  and  its  dissipation  e,  0.7  for  the  viscosity  and  0.5  for  pressure. 
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In  Che  case  o£  30  flutes,  complete  convergence  for  Re  «  3  x  10  has  only 
been  achieved  after  7000  iterations,  while  for  higher  Reynolds  numbers  or 
higher  spiral  angles  (i.e.  $  ■  30°),  no  exact  figure  can  be  reported  since 
the  initial  field  used  was  the  converged  solution  of  a  simpler  case  (lower 
Re  or  $  ■  15°).  The  under-relaxation  factors  used  were:  0.7  for  the 
^-direction  velocity,  0.6  for  the  redirection  velocity  ,  0.9  for  the 

axial  velocity,  1.0  for  pressure  ,  0.7  for  viscosity,  0.7  for  turbulence 

energy  k  and  its  dissipation  e.  In  addition,  the  indices  which  set  the 
number  of  times  sub-routine  LISOLV  will  be  called  to  solve  the  discretized 
form  of  the  equations  were  changed  as  follows  from  those  used  for 
10  flutes:  for  the  ^-direction  velocity  U  from  4  to  8,  for  pressure  p  from 
4  to  2,  while  for  axial  velocity  W,  redirection  velocity  V,  turbulence 
energy  k  and  energy  dissipation  e  were  unchanged  (10,  2,  2,  2  respectively). 
Computing  times  on  a  COC  7600  for  a  (18,  40)  grid  were  about  0.55  cps/iter- 
ation. 

Figure  4.11  shows  the  distribution  of  the  swirl  velocity  across 
trough  and  crest  radii  for  the  cases  where  the  mixing-length  model  is 
matched  with  the  k~e  scheme  and  where  the  k-e  model  is  matched  to  wall 
functions.  It  is  obvious  that  the  low-Reynolds-number  mixing-length 
treatment  gives  levels  of  secondary  flow  some  25Z  higher  than  those  predicted 
by  wall  functions.  In  view  of  the  fact  that  with  the  latter  treatment  the 
maximum  swirl  velocity  always  occurred  at  the  near-wall  node,  it  was  felt 
that  little  reliance  could  be  placed  on  its  value.  Turning  to  heat 
transfer  for  10  flutes,  15°  spiral  angle,  the  low-Reynolds-number  treatment 
led  to  predicted  Nusselt  numbers  for  water  (Pr  ■  7.03)  20Z  higher  than  for 
a  smooth  tube,  while  the  wall  functions  predicted  only  a  5Z  rise.  In  view 
of  these  indications,  the  low-Reynolds-number  treatment  was  used  for  the 


main  programme  of  explorations 


4 .3 .4  Adaptation  of  a  Simplified  ASM  in  the  Core  Region  of  the  Tube 

In  the  final  stages  of  the  present  project,  a  third  type  of  turbulence 
model  has  been  added  in  the  core  region  of  the  flow  ;  a  simplified 
algebraic  stress  model.  This  scheme  has  been  applied  in  the  cylindrical- 
polar  part  of  the  grid  as  well  as  in  the  one-dimensional  solution  area 
where  the  fluid  is  in  solid-body  rotation  (see  Figure  4.2).  The  only 
change  that  the  new  turbulence  model  introduced  into  the  standard  k-e 
model  wasthe  evaluation,  as  functions, of  the  quantities  and  Prt  which 
take  constant  values  with  the  usual  k-e  model. 


urvi  linear/polar  grid  with 
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Fig  4-8  Grid  n=10  h=-06Rb  Raa'3Rb 
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CHAPTER  5 

5.  THE  TURBULENT  FLOW  CALCULATIONS 


The  present  chapter  reports  the  validation  tests  performed  and  the 
computational  results  obtained  from  a  parametric  exploration  of  the 
turbulent  flow  through  spirally  fluted  tubes.  This  exploration  includes 
changes  in  the  number  of  flutes,  spiral  angles,  Reynolds  and  Prandtl  numbers. 
Finally,  a  comparison  between  the  computational  results  and  experimental 
data  reported  by  LaRue  [82]  is  presented  from  which  useful  conclusions  may 
be  drawn  on  directions  for  achieving  better  predictions  of  this  highly 
complex  flow. 

5.1  Validation  Tests 

In  Chapter  3,  several  validation  tests  of  the  computational  procedure 
have  been  reported,  such  as  the  computation  of  laminar  flow  through  a 
straight  circular-sectioned  tube  or  through  a  concentric  annulus  with  a 
rotating  outer  cylinder  at  a  prescribed  speed.  In  Chapter  A,  the  comp¬ 
utation  of  friction  factors  for  turbulent  flows  through  smooth  pipes, 
applying  different  near-wall  treatments,  has  been  reported  as  a  further 
test  of  the  correctness  of  the  complex  equations  given  by  (A. 25)  -  (A. 29) 
for  the  two-dimensional  part  of  the  solution  domain  and  by  (A. 31)  -  (A. 37) 
for  the  core  region.  As  a  test  of  the  energy  equation,  the  prediction  of 
heat  transfer  coefficients  for  fully-developed  turbulent  flows  in  straight 
unfluted  tubes  has  been  considered  by  setting  the  flute  height  to  zero 
while  the  spiral  angle  was  kept  at  15°.  The  mixing-length  hypothesis  with 
Van  Driest' s  damping  function  has  been  adopted  in  the  near-wall  region 
merged  with  the  k-e  Boussinesq  viscosity  model  over  the  rest  of  the  solution 
domain.  Three  different  fluids  have  been  tested:  air  (Pr  ■  0.708),  water 


(Pr  ■  7.03)  and  eutectic  calcium  chloride  solution  30%  (Pr  ■  19.6).  For 
all  these  fluids  the  computed  Nusselt  numbers  agreed  within  2.5%  with  the 
following  analytic  correlations  given  by  Kays  [  97] : 


for 

Pr  <  1 

Nu 

-  0.022  Re0,8  Pr0,6 

(5.1) 

for 

1  4  Pr  <  19 

Nu 

-  0.0155  Re0,83  Pr0,5 

(5.2) 

for 

19  4  Pr 

Nu 

-  0.0118  Re0*9  Pr0,3 

(5.3) 

Figure  5.1  shows  the  comparison  between  the  computations  and  the  above 
correlations  (5.1),  (5.2),  (5.3). 


An  additional  test  has  been  carried  out  by  setting  the  spiral  angle 
of  a  fluted  tube  (n  -  20,  h  *0.06R^)  to  zero.  The  computation  of 
turbulent  flow  through  this  tube  showed  (see  Figure  5.2)  that  lower  Nusselt 
numbers  than  the  smooth  tube  values  are  obtained.  However,  the  two  Nusselt 
number  lines  of  Figure  5.2  would  appear  to  coincide  if  they  were  extended  to 
Re  >  8  x  103.  The  definition  of  Nusselt  number  is  based  on  the  equivalent 
diameter  (■  4A/P)  given  by  the  equation: 


AT.k  (5.4) 


while  water  has  been  used  as  the  working  fluid.  The  above  definition 
(equation  (5.4))  does  not  take  account  of  the  added  surface  area  by  the 


flutes  expressed  by  the  ratio 


If  this  term  had  been  included  into 


equation  (5,4)  the  Nusselt  numbers  predicted  for  n  *  20,  $  ■  0°,  h  *  0.06 


would  have  increased  to  slightly  higher  values  than  those  computed  for 
smooth  tubes  (  presented  in  Figure  5.2  by  the  solid  line} 


5.2  Parametric  Study  of  the  Results  and  Comparison  with  Experimental  Data 


5.2.1  Psing  the  Combination  of  lo-e  and  Mixing-Length  Turbulence  Models 

The  Velocity  Field 

For  the  parametric  study  of  turbulent  flow  through  spirally  fluted 
tubes  reported  below,  the  case  of  10  flutes,  15°  spiral  angle  and  6 1  flute 
height  has  been  considered  as  the  "base  case".  For  the  results  reported 
here,  in  the  low-Reynolds-near-wall  region,  the  mixing-length  hypothesis 
with  Van  Driest's  damping  function  has  been  applied,  being  matched  to  the 
k~e  Boussinesq  viscosity  model  as  soon  as  all  the  nodes  belonging  to  a 
constant-n  row  of  cells  were  located  in  fully  turbulent  region.  The  grids 
used  to  calculate  the  turbulent  flow  through  tubes  with  10,  20  or  30  flutes 
are  given  in  Figures  5.3,  5.4  and  5.5  respectively.  For  each  case,  more 
than  one  grid  pattern  is  presented  displaying  the  writer's  attempts  at 
near-wall  grid-refinement  in  order  to  achieve  grid-independent  solutions. 
Figure  5.6  shows  the  distribution  of  local  Nusselt  number  around  a  flute 
for  the  three  types  of  grid  presented  in  Figure  5.4  (n  ■  20).  It  is  clear 
that  for  air  (Pr  ■  0.708)  no  changes  can  be  detected  in  the  distribution 
of  local  Nusselt  number  using  the  three  grids.  However,  for  water  (Pr  - 
7.03)  and  calcium  chloride  solution  (Pr  ■  19.6)  grid  1  gives  a  substantially 
different  Nusselt  distribution  from  grids  2  and  3.  Moreover,  one  could 
say,  considering  the  distributions  predicted  using  grids  2  and  3,  that  a 
virtually  grid-independent  solution  has  been  achieved,  at  least  for  water. 
For  calcium  chloride  solution,  however,  further  refinement  is  needed  for 
obtaining  a  grid-independent  solution.  The  same  type  of  behaviour  has  also 
been  found  for  10  and  30  flutes,  while  for  a  constant  Prandtl  number,  it 
has,  not  unexpectedly,  been  found  that  the  higher  the  flute  density  the  more 
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near-wall  grid-refinement  is  needed  in  order  to  achieve  a  grid-independent 
solution.  An  extensive  discussion  on  the  local  Nusselt  number  distribution 
around  the  flutes  can  be  found  in  the  following  section  where  the  convective 
heat  transfer  results  are  reported. 

The  velocity  direction  lines  for  a  10-flute  tube  at  a  Reynolds 
4 

number  of  1.66  x  10  are  shown  in  Figure  5.7.  From  this  figure,  it  is 
clear  that  as  the  fluid  encounters  the  flute  spiralling  clockwise,  a  high 
pressure  region  is  created  on  the  leading  face  of  the  flute  pushing  the 
fluid  clockwise  and  away  from  the  wall.  Comparing  this  flow  pattern  with 
Figure  3.6,  which  shows  the  corresponding  one  for  laminar  flow  in  a  10-flute 
pipe  at  a  Reynolds  number  of  300,  one  can  note  the  following:  firstly,  the 
confinement  of  the  flute-affected  region  closer  to  the  wall;  secondly,  the 
complete  absence  of  "back-flow"  over  the  crest  of  the  flute.  Figure  3.10 
shows  that,  for  Re  ■  300,  significant  circumferential  variations  occur  over 
a  large  proportion  of  the  cross-section  (R/R^  >  0.45),  while  from  Figure 
5.10,  where  the  distribution  of  the  5-velocity  component  along  the  trough 
and  crest  radii  for  tubes  with  10,  20  and  30  flutes  at  15°  is  presented, 
it  is  clear  that  for  the  lower  flute  density  the  fluid  is  in  solid-body 
rotation  for  radii  less  than  about  0.6  R^.  For  higher  flute  densities, 
however,  this  value  becomes  0.7  R^  -  0.75  R^.  The  higher  the  flute  density 
the  lower  the  distance  from  the  tube  wall  to  which  the  flute  effects  penetrate. 
The  velocity  direction  lines  for  20  and  30  flutes  are  illustrated  in  Figure 
5.8.  An  interesting  feature  shown  in  both  figures(5.8  and  5.10)is  the 
existence  of  "back-flow"  at  the  crest  position  of  the  flute. 

Figures  5.9a,  5.9b  and  5.9c  show  three  alternative  presentations  of 
vector  lines  on  the  cross-stream  plane  of  a  20-flute  tube  at  15°  spiral 
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angle.  Figure  5.9a  gives  the  usual  presentation,  while  5.9b  shows  the 
distribution  of  velocity  vectors  given  by  the  correlation: 


r  -  g57r 


(5.5) 


where  U  and  V  are  the  vectors  for  the  €  and  n  velocity  components  respect¬ 
ively,  while  is  the  resultant  vector  plotted  in  5.9a.  CD  is  the 

angular  velocity  of  the  central  core  for  the  test  in  question.  This  figure 
thus  shows  how  the  secondary  flow  ''vectors'*  appear  to  an  observer  rotating 
with  the  core  of  the  fluid.  .So,  over  the  part  of  the  pipe  in  solid-body 
rotation,  the  velocity  appears  as  zero. 

Figure  5.9c  presents  the  distribution  of  velocity  vectors  given  by: 


The  meaning  of  the  vectors  appearing  in  (5.6)  can  be  found  in  Chapter  3. 
Figure  5.9c  actually  shows  the  velocity  direction  lines  seen  by  an  observer 
placed  on  the  flute  spiralling  clockwise  around  the  tube.  Over  most  of 
the  domain  the  arrows  are  signifying  an  anti-clockwise  flow,  i.e.  that 
fluid  in  the  tube  is  not  spinning  clockwise  as  fast  as  the  flutes  (so, 
relative  to  the  flutes  fluid  is  gliding  backwards).  This  particular 
presentation  conveys  a  striking  impression  of  how  the  flutes  promote  mixing 
of  the  near-wall  fluid.  The  corresponding  alternative  presentations  of 
vector  lines  for  n  •  30,  $  ■  30°  are  presented  in  Figures  5.9d,  5.9e  and 
5.9f.  The  patterns  shov  no  distinctive  differences  from  those  for  20  flutes. 

The  circumferential  velocity  along  trough  and  crest  radial  lines  for 
various  flute  densities  has  been  shown  in  Figure  5.10,  while  the  effect  of 


Reynolds  number  on  this  distribution  for  a  20-flute  tube  with  a  15°  spiral 
angle  is  shown  in  Figure  5.11.  This  figure  shows  an  increase  in  the  extent 
of  the  region  of  solid-body  rotation  with  Reynolds  although  this  change  is 
small  since,  even  for  Re  ■  16500,  the  solid-body  rotation  region  covers 
most  of  the  solution  domain.  Moreover,  in  Figure  5.10,  for  the  higher 
flute  density  a  very  weak  and  limited  reverse  flow  in  the  trough  can  be 
detected.  One  can  note  the  marked  increase  of  the  secondary  flow  as  the 
number  of  flutes  is  raised  from  10  to  20.  However,  for  a  further  increase 
from  20  to  30,  the  increase  in  circumferential  velocity  is  only  slight. 
Figure  5.10  also  shows  that  the  additional  flutes  produce  a  higher  level 
of  swirl,  not  only  in  the  core  region  but  also  in  the  near-wall  region  in 
contrast  to  the  laminar  flow  computations  (see  Figure  3.12)  where  a  lower 
maximum  level  of  secondary  flow  is  produced  with  the  high  flute  density 
tube. 

Figure  5.12  shows  the  effect  of  flute  angle  on  the  circumferential 
velocity  profile  for  n  ■  30  and  Rea  18000.  From  this  figure  it  is  clear 
that  the  circumferential  velocity  increases  in  roughly  the  same  ratio  as 
the  tangents  of  the  spiral  angle  (the  same  has  been  shown  in  Figure  3.11 
for  the  laminar  flow  computations) ,  while  the  higher  the  flute  angle  the 
stronger  the  "back-flow"  over  the  crest  and  trough  although  very  limited 
and,  in  the  trough,  still  very  weak. 

A  similar  behaviour  is  also  shown  in  Figure  5.13  where  the  effect 
of  spiral  angle  on  circumferential  velocity  profile  is  given  for  a  tube 

A 

with  20  flutes  at  a  Reynolds  number  around  5.1  x  10  .  This  figure  shows 
that  although  for  $  ■  15°  no  "back-flow"  exists  over  the  crest,  for  ♦  »  30° 
a  weak  one  is  present  even  at  this  high  Reynolds  number. 


The  effects  that  the  flutes  exert  on  the  axial  velocity  profiles 
are  presented  in  Figure  5.14.  It  is  obvious  that  the  velocity  distribution 
for  10  flutes  is  similar  to  that  for  a  fully-developed  flow  through  a 
smooth  tube  with  a  known  pressure  gradient,  while  the  higher  the  flute 
density  the  more  curved  the  distribution  of  the  axial  velocity  due  to  the 
proximity  of  the  flute  surfaces  and  the  greater  velocity  retardation  that 
they  cause. 

The  only  velocity-field  experimental  data  available  are  for  30- 

flute  tubes  at  30°  spiral  angle;  the  data  plotted  below  have  been  measured 

by  J.C.  LaRue  [82]  at  the  University  of  California,  Irvine.  Although  the 

computational  results  for  this  geometry  (n  »  30,  $  ■  30°)  do  not  exceed  a 

Reynolds  number  of  26300  (due  to  the  increasing  difficulty  in  converging 

the  solution  procedure),  comparisons  have  been  drawn  between  the  predictions 

and  the  experimental  data  for  higher  Reynolds  numbers.  This  comparison 

seems  reasonable  to  make  (though,  of  course,  one  needs  to  be  slightly  wary 

of  Re  influences  in  such  cot^lex  geometry).  The  distribution  of  axial 

velocity  ratio  W/W^  (W«  ■  axial  velocity  at  the  tube  axis)  along  the  trough 
Hi  X 

and  crest  radii. is  shown  in  Figures  5.15  and  5.16  respectively.  Despite 
the  difference  in  Reynolds  numbers  between  LaRue' s  and  the  predicted  data, 
the  profiles  are  almost  identical. 

Figure  5.17  presents  the  variation  of  predicted  friction  factor  f 
with  Reynolds  number  based  on  the  conventional  hydraulic  diameter  of  the 
tube  (see  equation  (3.1))  for  three  flute  densities  (n  -  10,  20,  30)  and  a 
15°  spiral  angle.  One  may  note  that  for  n  •  10  the  spirally  fluted  tube 
friction  factor  is  almost  identical  to  that  for  a  smooth  tube.  Its  increase 
over  the  smooth  tube  values  ranges  from  -2.1Z  to  +2.6Z  for  Reynolds  numbers 


varying  from  10  to  8  x  10  .  For  20  £lutes,  the  spirally  fluted  tube 

4 

friction  factor  at  Re  -  10  is  again  2.1%  lower  than  the  circular  tube 

4  4 

value  but  11Z  higher  at  Re  ■  8  x  10  ,  while  for  30  flutes  at  Re  •  2  x  10 

it  is  already  18%  higher  and  displays  an  increase  as  the  Reynolds  number  is 

4 

raised.  Thus,  at  Re  ■  4  x  10  it  is  almost  50%  higher  than  for  a  smooth 
tube  at  the  same  Reynolds  number. 

The  variation  of  friction  factor  with  Reynolds  number  for  the 
different  flute  densities  with  a  30°  spiral  angle  is  shown  in  Figure  5.18. 
The  notable  feature  of  Figure  5.18  is  that  all  the  friction  factors  lie 

above  the  smooth  tube  line  with  increases  ranging  from  10%  for  n  *  10  at 

A  4 

Re  -  8  x  10  to  118%  for  na30atRe-3xl0.  Again,  the  values  for 

the  higher  flute  density  show  an  increase  with  Reynolds  number. 

This  behaviour  of  the  friction  factor  with  the  number  of  flutes  can 
be  partly  explained  by  the  increasingly  asymmetric  distribution  of  the 
surface  static  pressure  around  the  flute.  Figure  5.19  presents  the 

distribution  of  the  surface  static  pressure  around  the  flute  at  a  Reynolds 

4  •  o 

number  of  6  x  10  for  two  different  flute  densities  and  a  15  spiral  angle. 

Clearly,  for  20  flutes  the  profile  is  more  asymmetric  about  the  crest  than 

for  10  showing  a  marked  double  maxima.  The  effect  of  the  spiral  angle  on 

the  pressure  distribution  for  a  tube  with  20  flutes  at  the  same  Reynolds 

number  (6  x  10  )  is  illustrated  in  Figure  5.20.  From  both  Figures  5.19  and 

5.20  it  is  clear  that  the  effect  of  the  static  pressure  on  the  leading  face 

of  the  flute  (0.5  <  £  <  1.0)  opposing  the  downstream  motion  of  the  flow  is 

more  than  on  the  trailing  surface  pushing  the  fluid  downstream.  However, 

the  higher  the  flute  density  or  spiral  angle  or  Reynolds  number,  the 

stronger  this  difference  and  the  higher  the  friction  factor  con^ared  with 


Che  circular  Cube  values.  In  Figure  5.21  Che  case  of  30  f lutes,  30 
spiral  angle  is  presenced  for  Cvo  Reynolds  numbers,  while  Figure  5.22 
illuscraces  Che  surface  sCaCic  pressure  discribucion  for  a  Cube  wich  30 


f luces  buC  15°  fluce  angle.  All  Che  above-mencioned  characteristics  are 
noticeable  in  these  two  figures  also. 

A  comparison  of  predicted  and  measured  friction  factors  is  given 
in  Figure  5.23.  This  figure  presents  Che  friction  factor-Reynolds  number 
distribution  revealing  a  serious  disagreement  with  the  experimental  data. 

4 

At  a  Reynolds  number  of  2  x  10  the  computed  friction  factor  is  47Z  above 
the  experimental  level  (by  LaRue)  displaying  a  steady  increase  as  the 
Reynolds  number  is  raised,  in  contrast  to  the  measurements  (where  the  level 

of  friction  factor  drops  even  below  the  smooth  tube  line  at  Reynolds 

4  4 

numbers  above  6  x  10  ) .  Consequently,  at  a  Reynolds  number  of  3  x  10  the 

difference  becomes  almost  80Z.  The  causes  of  this  disagreement  and  possible 

cures  are  considered  later.  First,  however,  we  examine  the  convective  heat 

transfer  results  associated  with  Che  above  hydrodynamic  predictions. 

Convective  Heat  Transfer 

The  factors  which  may  tend  to  enhance  the  heat  transfer  performance 
of  Che  spirally  fluted  tubes  are:  the  increase  of  heat  transfer  surface 
area  per  unit  length  of  tube  due  to  the  fluting,  the  convective  transport 
due  to  the  swirl  flow  generated  by  the  spiralling  of  the  flutes  and  the 
augmentation  of  turbulent  transport  coefficients.  Taking  into  account  the 
added  surface  area  for  the  definition  of  Husselt  number  (see  equation  (3.7) 
based  on  the  conventional  hydraulic  diameter)  a  comparison  is  presented  in 
Figure  5.24  between  smooth-tube  Nusselt  number  values  and  Chose  for  tubes 
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of  10,  20  and  30  flutes  at  15°  spiral  angle  for  air  (Pr  ■  0.708),  water 
(Pr  ■  7.03)  and  calcium  chloride  solution  (Pr  ■  19.6).  The  smooth  pipe 
results  shown  in  Figure  5.24  are  those  recommended  by  Kays  [96] .  One  may 
note  the  substantial  increase  of  mean  Nusselt  number  for  every  fluid  and 
geometry  studied.  These  increases  range  from  122  for  10  flutes  and  392 
for  20  flutes  to  up  to  1202  for  30  flutes,  the  enhancement  for  the  last 
two  geometries  depending  on  Prandtl  number.  (Thus,  for  a  30-flute  tube, 
while  the  increase  for  air  is  around  552,  for  water  it  is  932  and  for 
calcium  chloride  solution  1202). 

The  mean  Nusselt  number  distribution  with  Reynolds  number  for  the 
same  fluids  and  flute  densities  at  a  higher  spiral  angle  (*  ■  30°)  is 
presented  in  Figure  5.25.  Again,  the  enhancement  of  heat  transfer  per¬ 
formance  is  remarkable  especially  for  the  higher  Prandtl  numbers.  From 
both  figures  (5.24,  5.25)  one  notes  that  the  higher  the  number  of  flutes 
the  stronger  the  augmentation  of  Nusselt  number  over  the  smooth  tube  values. 
For  n  ■  10  the  increases  range  from  102  for  air  and  162  for  water  up  to 
202  for  calcium  chloride  solution,  while  for  n  ■  30  from  1302  for  air  and 
2402  for  water  up  to  3152  for  calcium  chloride  solution!  Moreover,  the 
augmentations  for  20  flutes  are  intermediate  between  those  for  10  and  30 

flutes.  Thus,  the  increase  of  friction  factor  mentioned  in  the  previous 
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section,  even  for  n  »  30  at  30  spiral  angle  for  Re  •  3  x  10  (1182),  can  be 

considered  modest  compared  with  the  three-fold  increase  of  the  Nusselt  number. 

It  is  interesting  to  note  how  the  number  of  flutes,  the  level  of 
Reynolds  and  Prandtl  numbers  and  the  spiral  angle  affect  the  distribution 
of  the  local  Nusselt  number  around  the  flutes.  Figures  5.26  to  5.30 
display  all  these  effects.  The  behaviour  for  10  flutes  is  shown  in  Figure 
5.26  for  two  Reynolds  numbers  and  three  different  fluids.  For  the  lowest 


Prandtl  number  (air)  at  both  Reynolds  numbers  there  is  only  a  15%  variation 
in  the  distribution  of  Nusselt  number  about  its  mean  value  with  a  maximum 
at  the  crest  position  (£/S^ute  ■  0.5).  The  same  behaviour  has  also  been 
found  in  the  laminar  flow  computations  shown  in  Figure  3.31.  For  water, 
the  distribution  of  Nusselt  number  is  different  since  its  maximum  value 
has  shifted  halfway  down  the  leading  face  of  the  flute  (0.5 <  5/S^lute<  1) 

4 

while  at  a  higher  Reynolds  number  (»  6.5  x  10  )  a  further  modification  in 
the  shape  of  the  distribution  can  be  detected  mainly  on  the  trailing  side 
of  the  flute.  For  the  highest  Prandtl  number  the  behaviour  of  the  local 
Nusselt  number  is  similar  to  that  for  water  but  with  the  maximum  shifted 
still  further  away  from  the  crest  on  the  pressure  side. 

The  corresponding  variation  of  local  Nusselt  number  for  20  flutes 
is  given  in  Figure  5.27.  At  a  low  Reynolds  number  the  distribution  for  air 
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is  similar  to  that  for  10  flutes;  however,  at  Re  *  6  x  10  it  develops  a 
double  maximum  one  at  each  face  of  the  flute  (pressure  and  suction);  this 
feature  is  also  present  at  higher  Prandtl  numbers.  The  maximum  appearing 
at  the  suction  face  of  the  flute  may  be  understood  by  reference  to  the 
behaviour  of  the  velocity  direction  lines  shown  in  Figure  5.9c.  This 
figure  shows  at  the  trailing  side  of  the  flute  an  impinging  flow  which 
leads  to  the  peak  on  the  local  Nusselt  distribution.  (Similar  remarks 
could  be  made  about  the  distribution  of  surface  static  pressure  presented 
above  which  also  shows  a  maximum  on  the  suction  face  of  the  flute). 

Figure  5.28  shows  the  variation  of  local  Nusselt  number  for  a  30-flute 
tube. 

Figure  5.29  shows  the  effect  of  higher  spiral  angles  on  the  local 


Nusselt  number  disCribution  for  20  flutes.  It  is  interesting  to  note 
the  substantial  difference,  for  the  higher  Prandtl  numbers,  in  the  level 
of  the  two  maxima  occurring  on  the  two  flute  faces.  Again,  the  highest 
levels  are  those  of  the  suction  face.  A  similar  behaviour  is  shown  in 
Figure  5.30  for  n  ■  30  and  4  ”  30°. 

Figure  5.31  dravs  conparisons  between  experimental  and  predicted 
data  for  the  convective  heat  transfer  behaviour.  The  computed  Nusselt 
numbers  for  air  show  a  1202  increase  over  the  smooth  tube  values  while  the 
experiments  indicate  only  a  small  augmentation.  Moreover,  the  computed 
Nusselt  numbers  for  water  flow  and  uniform  fluid  properties  (low  heat  flux) 
display  a  2002  increase  over  the  unfluted  tube  values  while  the  experiment¬ 
al  data  suggest  an  increase  only  about  half  that  found  numerically.  This 
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can  be  seen  in  Figure  5.31  where  the  Nusselt  modulus  Nu/Pr  *  for  water  is 
plotted  against  the  Reynolds  numbers  for  different  heat  fluxes  and  heat 
flux  directions. (inward  or  outward).  The  predicted  values  should  be 
compared  with  Reilly's  data  [94]  (line  2)  since  a  low  heat-flux  situation 
has  been  considered.  The  Nusselt  number  is  based  on  the  conventional 
hydraulic  diameter  not  including  the  area  extension  due  to  the  fluting 
(see  equation  (5.4)). 

It  is  also  interesting  to  include  here  the  comparison  of  predicted 
and  experimental  data  for  the  turbulent  kinetic  energy  distribution  along 
the  crest  and  trough  radii.  It  is  clear  from  Figures  5.32  and  5.33  that 
the  computations  overpredict  the  experimental  level  giving  values  which  are 
almost  three  times  larger  than  the  measured  ones  along  the  crest  radius  and 
over  four  times  larger  along  the  trough  radius.  The  predictions  of  a  10- 
flute  tube  at  30°  spiral  angle  are  also  presented  in  Figures  5.32  and  5.33 


and  in  contrast  with  the  foregoing  these  results  show  an  almost  identical 
distribution  to  LaRue’s  data.  The  higher  values  predicted  for  30  flutes 
compared  with  the  predictions  for  10  flutes  may  be  explained  by  referring 
to  Figure  5.14.  From  this  figure  it  is  clear  that  at  a  radius  of  0.88  R^, 
where  the  matching  of  the  mixing-length  hypothesis  and  the  k~e  Boussinesq 
viscosity  model  takes  place,  the  gradient  of  the  axial  velocity  is  steeper 
for  the  30-flute  geometry  than  for  the  10.  Thus,  for  the  higher  flute 
density  a  larger  production  of  turbulence  is  created  giving  values  of  k  at 
that  radius  which,  as  mentioned  above,  are  several  times  larger  than  those 
for  10  flutes. 

Our  computations  so  far  have  succeeded  in  showing  the  favourable 
heat  transfer  performance  of  spirally  fluted  tubes;  however,  for  both 
momentum  and  heat  transfer  the  enhancement  is  too  strong.  This  should 
clearly  suggest  that  the  turbulent  transport  coefficients  are  too  high  in 
some  respect  . 

One  possibility  we  felt  worth  considering  was  that  within  the  flute 
itself  turbulent  mixing  might  be  suppressed,  the  flow  here  being  essentially 
viscous.  Up  to  now  the  computational  solution  gives  substantial  turbulent 
transport  in  the  flutes  except  within  the  viscous  sublayer  whose  thickness 
depends  on  the  value  assigned  to  the  Van  Driest  damping  "constant"  A*  which 
in  the  present  computations  has  taken  the  standard  value  of  26.  (The 
viscous  sublayer  thickness  of  course  becomes  thinner  as  the  Reynolds  number 
is  raised).  To  mimic  approximately  the  conjectured  suppression  of  turbulent 
transport  in  the  region  within  the  flutes,  the  turbulent  term  in  the 
effective  viscosity  has  been  dropped  in  this  part  of  the  solution  domain. 

The  resultant  predictions  of  friction  factor  and  heat  transfer  coefficients 


show  some  improvement  in  agreement  with  the  experimental  data.  Figure 

5.34  shows  that  the  computed  skin  friction  has  been  decreased  by  20Z  at 
4  4 

Re  -  2  x  10  and  by  26Z  at  Re  *  3  x  10  compared  with  the  values  computed 
initially;  for  the  same  two  Reynolds  numbers  the  excess  of  the  predicted 
values  over  the  experimental  data  (by  LaRue)  is  only  18Z  and  32Z  respect¬ 
ively  (instead  of  47Z  and  80Z  mentioned  above) .  What  is  particularly 
encouraging  is  that  the  suppression  of  turbulence  in  the  flute  gives  a 
friction  factor  distribution  that  decreases  as  the  Reynolds  number  is 
raised.  Figure  5.35  illustrates  the  corresponding  effects  on  the  heat 
transfer  coefficients  for  air  and  water  flow.  For  both  fluids  the 
suppression  of  turbulent  transport  within  the  flutes  has  brought  about  a 
decrease  in  the  computed  Nusselt  numbers.  However,  while  for  air  flow 
the  decrease  is  almost  comparable  with  that  of  friction  factor  (13Z) ,  for 
water  the  decrease  is  only  7Z.  This  behaviour  comes  about  because  of  the 
way  that  heat  is  transmitted  in  the  region  within  the  flutes.  For  water, 
convection  by  the  secondary  flow  is  more  important  than  diffusion  in  the 
flute  region.  For  air  flow,  however,  diffusion  is  also  important,  so  the 
damping  of  turbulent  diffusion  has  produced  a  larger  decrease  in  heat 
transfer  coefficients.  Figure  5.36  shows  the  effect  on  the  secondary  flow 
due  to  the  change  in  effective  viscosity  within  the  flutes.  One  can  see 
an  increase  in  the  level  of  the  circumferential  velocity  and  a  decrease  in 
the  "back-flow"  over  the  crest.  No  substantial  change  has  been  found  in 


the  distribution  of  the  ratio  W/W^ shown  in  Figures  5.15  and  5,16.  Figures 
5.37  and  5.38  show  the  corresponding  effect  on  the  turbulent  kinetic  energy 


distribution  where  one  can  see  an  improvement  of  the  predicted  values  by 


28Z  at  the  tube  axis  and  by  45Z  at  the  outer  boundary  of  the  trough  position. 


The  results  shown  in  Figures  5.34  to  5.38  suggest  that  the  replace- 


ment  of  the  mixing-length  hypothesis  by  the  k~e  Boussinesq  viscosity 
model  in  its  low-Reynolds-number  form  could  give  a  better  agreement  with 
experiments  by  predicting  the  suppression  of  turbulence  in  the  region 
within  the  flutes  since  this  model  has  been  successful  in  predicting 
"laminar izing"  phenomena  in  several  other  situations  (Jones  and  Launder 
[lio]  ,  [ill]  ,  Durst  and  Rastogi  [112]  ). 

5.2.2  Introduction  of  the  Two  Forms  of  a  Simplified  ASM  into  the 

Core  Region  of  the  Solution  Domain 

In  the  foregoing  calculations  the  level  of  predicted  Nusselt  number 
is  independent  of  the  heat  flux  magnitude  since  the  (thermal)  energy 
equation  is  uncoupled  from  the  momentum  equations  and  linear  in©  (0«T-Tref). 
However,  Yampolslty  [l]  (Figure  1.30)  showed  an  enhancement  of  water 
Nusselt  numbers  as  heat  flux  increases,  suggesting  that  the  buoyancy  effect 
associated  with  the  swirl  was  the  physical  source  of  the  enhancement.  Thus, 
limited  calculati  ve  been  made  with  the  simplified  buoyancy  ASM  of 

Gibson  and  Launder  (see  Section  4.1.4b  of  Chapter  4)  applied  in  the 

core  region  of  the  solution  domain.  Only  the  case  of  20  flutes  at  15° 
spiral  angle  for  a  Reynolds  number  of  17000  has  been  examined.  For  these 
runs  the  dynamic  and  temperature  fields  were  solved  at  the  same  time, 
resulting  to  an  increase  of  the  co^uting  times  from  0.55  cp  sec/iteration 
(see  Section  4.3.3)  to  0.63  cp  sec/iteration.  However,  no  significant 
enhancement  in  Nusselt  number  has  been  found,  suggesting  that  buoyant 
centrifuging  in  the  mein  pert  of  the  tube  is  not  significant.  Possibly, 
the  effect  could  be  ii^iortant  in  the  region  imnediately  adjacent  to  ribs 
where  very  rapid  gradients  in  velocity  and  density  are  present.  (However, 
turbulence  generation  by  shear  is  also  large  and  this  will  tend  to  obscure 


Che  buoyant  contribution).  The  above  possibility  could  not  be  explored 
because  to  incorporate  the  ASM  model  into  the  curvilinear  region  would 
introduce  too  great  a  complexity.  Perhaps  a  more  likely  reason  for  "heat 
flux  ratio"  having  such  a  marked  effect  is  the  strong  dependence  of  viscosity 
on  temperature.  A  high  "heat  flux"  implies  a  large  decrease  in  viscosity 
in  the  flute  region  compared  with  the  core  flow,  thus  facilitating  larger 
secondary  and  primary  flow  deep  in  the  flutes  (a  scenario  that  seems  certain 
to  lead  to  higher  heat  transfer  rates).  Unfortunately,  the  assumption  of 
fully-developed  flow  to  which  the  present  study  is  confined  does  not  allow 
for  an  exploration  of  the  effect  of  fluid  property  variations. 

The  conclusions  so  far  are  that  it  seems  quite  probable  that  the  flow 

in  the  flute  region  is  laminarized  but  this  mechanism  alone  is  unable  to 

account  for  the  differences  between  computations  and  measurements.  The 

other  mechanism  considered  is  the  sensitivity  due  to  swirl.  In  a  swirling 

jet,  where  predominantly  angular  momentum  decreases  with  radius,  the  effect 

is  to  augment  turbulent  mixing  but  in  the  spirally  flute  tube,  where  the 

angular  momentum  increases  from  the  axis  to  the  crest  of  the  ribs,  the 

tendency  will  be  to  inhibit  turbulent  transport .  Thus, the  incorporation  into 

the  core  region  of  the  solution  domain  of  a  simplified  ASM  including  the 

effect  of  swirl  associated  with  the  additional  strains  it  introduces  into 

the  flow  (see  Section  4.1.4a  of  Chapter  4)  led  to  a  4.5Z  decrease  in  friction 

factor  for  a  tube  of  20  flutes  at  15°  spiral  angle.  No  corresponding 

changes  have  been  introduced  into  the  heat  flux  equations.  Figure  5.39 

shows  the  variation  of  ratio  f_-/f _  (where  f  ,  is  the  friction  factor  for 

sr  sm  si 

spirally  fluted  tube,  while  f__  is  the  friction  factor  for  smooth  tube) 

sm 

with  the  Reynolds  number  for  the  20-flute,  15°  tube,  while  Figure  5.40 
illustrates  a  similar  distribution  for  a  30-flute,  30°  tube.  In  the 


latter  geometry  the  decrease  of  friction  factor  is  about  72  while  the 
corresponding  decrease  of  Nusselt  number  for  water  is  almost  52. 


Finally,  some  calculations  have  been  made  applying  both  the 
treatments  that  have  been  found  to  improve  the  comparison  between  predict¬ 
ions  and  measurements  when  they  have  been  used  separately.  Thus,  suppressing 
the  turbulent  transport  in  the  near-wall  region  and  applying  the  simplified 
ASM  including  the  swirl  effects  at  the  core  region  of  the  solution  domain 
for  a  30-flute,  30°  tube,  the  friction  factors  have  been  decreased  by  282 
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at  Re  •  2  x  10  and  by  332  at  Re  ■  3  x  10  ,  compared  with  the  values 
computed  initially,  while  for  the  same  two  Reynolds  numbers  the  increase 
over  the  experimental  data  (by  LaRue)  is  only  7 Z  and  202  respectively 
(instead  of  472  and  802  found  initially).  These  results  are  shown  in 
Figure  5.41.  The  predicted  Nusselt  numbers  for  water  are  4.52  lower  than 
those  shown  in  Figure  5.35  for  the  suppression  of  turbulent  diffusion  within 
the  flutes. 


5.3  Concluding  Remarks 

Chapters  4  and  5  have  reported  the  adaptation  and  application  of 
the  TEACH  computer  code  for  solving  turbulent  flow  through  spirally  fluted 
tubes.  Although  several  tests  have  been  made  adopting  different  near-wall 
approaches,  the  final  results  reported  above  have  been  based  mainly  on  the 
k«c  Boussinesq  viscosity  model  over  most  of  the  solution  domain  merged  with 
Van  Driest' s  form  of  the  mixing-length  hypothesis  in  the  near-wall  region. 
The  problem  of  converging  the  solution  procedure  (also  serious  in  the 
laminar  flow  computations)  has  been  alleviated  by  applying  the  parabolic 
sublayer  treatment  in  the  isasediate  vicinity  of  the  flutes.  The  use  of  a 


mixed  curvilinear/ cylindrical-polar  grid  and  the  inclusion  of  the  two- 
stage  pressure  correction  procedure  must  have  contributed  to  the  improvement 
of  convergence  although  no  turbulent  runs  have  been  made  using  either  the 
original  SIMPLE  procedure  or  the  fully  curvilinear  grid.  However,  for  a 
30-flute  tube  at  30°  spiral  angle,  the  convergence  rate  of  the  solution 
procedure  is  still  intolerably  slow.  This  is  why  the  results  reported 
above  for  this  tube  geometry  do  not  exceed  a  Reynolds  number  of  26300. 

Despite  the  remaining  disagreements  between  predicted  and  experi¬ 
mental  data  reported  above,  the  predicted  data  cover  an  extensive 
parametric  study  showing  how  valuable  a  numerical  solution  can  be  in 
developing  insight  into  a  complex  flow.  Moreover,  the  interfacing  of  two 
or  three  turbulence  models  in  different  parts  of  the  solution  domain  shows 
the  flexibility  of  a  computational  solution  for  predicting  a  difficult 
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Effect  of  the  Reynolds  number  on  the  distribution  of  circumferential  velocity  along 
trough  and  crest  radii,  n  =  20,  ip=15° 
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FIG  5-15  Comparison  of  predicted  and 
experimental  data  for  the 
axial  velocity  distribution 
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FIG  5*16  Comparison  of  predicted  and 
experimental  data  for  the 
axial  velocity  distribution 
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Fig.  5.21  Effect  of  Reynolds  number  on  surface  pressure 
distribution  for  n=30,  <4>=30° 
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Fig.  5  . 22  Effect  of  Reynolds  number  on  surface  pressure 

distribution  for  n  =  30,<p=15 
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Variation  of  local  Nusselt  number  around  flute 
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5.29  Variation  of  local  Nusselt  number  around  flute 
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Comparison  of  predicted  and  experimental  data 
for  Nusselt  modulus  n  =  30,vp=30° 
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Fig  .  5  .32  Comparison  of  predicted  and  experimental  data  for  the 
k  distribution  along  the  crest  n  =  30,  <p=30° 
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Comparison  of  predicted  and  experimental  data  for  the 
k  distribution  along  the  trough  n  =  30,ip=30° 


FIG  5-35  Depedence  of  predicted  Nu 
on  Re ;  n=30  ,  0  =30° 
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Fig.  5.36  Variation  of  circumferential  velocity  for  n=30,<p=30° 


*  Experiments  smooth  tube  (113 ] 

•  Experiments  J.C.  LaRue  (Re=  47287) 

-  Predictions  (Re*  26000) 

-  Predictions  (Re  *  26000) 
Suppression  of  ^  if  R>(R^-h) 
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FIG  5-40  Variation  of  Uf/hm  Re 
n=30  ,  cp=30' 


FIG  5-41  Variation  of  fSfy/fsm  with  Re 
n  =  30  ,  0  =  30’ 
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CHAPTER  6 


6 .  CONCLUSIONS  AND  RECOMMENDATIONS  FOR  FURTHER  WORK 


6. 1  Fulfilment  of  Objectives 

The  main  objectives  of  the  present  work  (stated  in  Section  1.3  of 
Chapter  1)  were: 

a)  The  development  and  application  of  an  efficient  computer 
code  for  solving  the  flow  through  the  spirally  fluted 
tube  in  both  laminar  and  turbulent  regimes. 

b)  The  introduction  of  advanced  turbulence  models  in  the 
numerical  solution  scheme  in  order  to  represent  the 
complex  turbulence  behaviour  for  the  prediction  of 
turbulent  flows  since  in  this  regime  lie  most  of 
the  industrial  applications  of  spirally  fluted  tubes. 

Thus,  the  present  work  may  be  briefly  summarized  by  noting  the  main 
steps  towards  the  accomplishment  of  the  above  objectives. 

(a)  Laminar  Regime 

1)  The  derivation  of  the  differential  equations  describing  the 
flow  through  the  spirally  fluted  tube.  The  discretization 
of  thase  equations  using  a  finite  volume  approach  and 
adaptation  of  the  computer  code  originally  written  by 
Antonopoulos,  Gosman  and  Issa  [86]  to  reflect  these 
discretized  equations. 


2)  The  development  and  application  of  a  computer  code  for 
generating  a  curvilinear /cylindrical-polar  grid  covering 
the  part  of  a  flute  bounded  on  the  outer  surface  by  the 
tube  wall  and  at  the  inner  surface  by  an  arc  of  radius 

R  . 

a 

3)  The  introduction  into  the  computer  code  of  a  special 
treatment  for  handling  the  cyclic  boundary  conditions 
applied  at  the  east  and  west  boundaries  of  the  solution 
domain. 

4)  The  solution  of  the  discretized  equations  by  the  recently 
developed  PISO  algorithm  (see  Issa  [79]  and  Gosman  et  al 

[ 80] )  based  on  the  idea  that  the  velocity  perturbations  at 
some  point  of  the  solution  domain  depend  not  only  on 
pressure  perturbations  but  also  on  velocity  perturbations 
at  adjacent  nodes. 

5)  The  test  of  the  resultant  solving  scheme's  numerical  accuracy 
by  applying  it  to  the  computation  of  simple  flows  with  known 
analytical  solutions  since  the  complex  form  of  the  describing 
equations  makes  it  easy  for  errors  to  appear  in  their  derivation, 
discretization  or  incorporation  into  the  computer  code. 

6)  The  application  of  the  computer  code  to  the  computation  of  the 
dynamic  and  temperature  fields  of  the  flow  through  the 
spirally  fluted  tube.  The  parametric  study  of  the  flow 
including  changes  in  the  number,  height  or  angle  of  the  flutes 
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and  in  Reynolds  and  Prandtl  numbers. 


Turbulent  Regime 

7)  The  extension  of  the  solution  domain  to  the  tube  axis  by 
means  of  a  radial  string  of  nodes  along  which  the 
describing  equations  were  solved  with  circumferential 
variations  set  to  zero.  The  discretization  of  the  describ¬ 
ing  equations  in  the  one-dimensional  (core  region)  and 
incorporation  into  the  computer  code.  The  introduction 
into  the  numerical  procedure  of  a  special  treatment  for 
the  simultaneous  solution  of  both  regions  (two-dimensional 
and  one-dimensional). 

8)  The  application  of  the  Parabolic  Sublayer  treatment  (PSL) 
within  a  thin  band  in  the  immediate  vicinity  of  the  tube 
wall  (covering  the  two  or  three  rows  of  cells  next  to  the 
surface) . 

9)  The  application  of  various  turbulence  models  and  near-wall 
approaches  to  the  computation  of  the  turbulent  flow  through 
the  spirally  fluted  tube.  The  incorporation  of  special 
treatments  for  viscosity  and  temperature  in  the  fine  grid 
approach  finally  adopted  for  the  solution  of  the  near-wall 
region. 


10)  The  application  of  the  resultant  computer  code  (incorporating 
the  Boussinesq  viscosity  model  over  most  of  the  pipe 


merged  with  Van  Driest 's  form  of  the  mixing-length  hypothesis 
in  the  immediate  vicinity  of  the  flutes)  for  solving  the  flow 
through  the  spirally  fluted  tube.  The  parametric  study  of 
the  flow  including  changes  in  Che  number  or  angle  of  flutes, 
in  Reynolds  and  Prandtl  numbers. 

11)  The  comparison  with  the  experimental  data  available  for  the 
turbulent  regime,  for  a  tube  with  30  flutes  at  30°  spiral 
angle . 

12)  The  exploration  of  different  physical  models  in  the  light 
of  the  comparison  with  experiments. 


Conclusions  and  Recommendations  for  Future  Work 


1)  The  convergence  of  the  solution  procedure,  while  being  a 
serious  problem  throughout  the  present  work,  has  been 
considerably  improved  for  most  of  the  geometries  studied. 

The  steps  mostly  contributing  to  it  were  the  introduction 
of  PISO  algorithm  into  the  computer  code  and  the  adoption 
of  the  mixed  curvilinear /cylindrical-polar  grid. 

2)  In  geometries  of  high  flute  density  where  high  aspect  ratio 
cells  appear  near  the  east  and  west  boundaries  the  convergence 
of  the  solution  procedure  is  still  not  satisfactory.  The 

use  of  a  non-ortho gonal  grid  could  avoid  the  large  variation 


in  cell  size  end  thus  probably  lead  to  more  rapid 
convergence  o£  che  solution.  Alternatively,  if  the 
orthogonal  grid  is  retained,  some  improvement  may  be 
achieved  by  ignoring  the  high  aspect  ratio  cells  and 
solving  the  describing  equations  in  a  domain  where  the 
east  and  west  boundaries  are  appropriately  modified. 

3)  Since  no  experimental  data  for  laminar  flows  are  available, 
no  comparison  can  be  given  with  the  values  predicted.  The 
numerical  results  show  that  even  in  the  laminar  regime  this 
type  of  tubing  can  be  beneficial  since  it  enhances  heat  transfer 
coefficients  while  keeping  the  friction  factors  to  levels 
almost  equal  with  those  of  smooth  tubes.  Moreover,  bearing 
in  mind  that  all  other  enhancement  techniques  for  internal 
flows  increase  the  friction  factors  substantially  more  than  the 
heat  transfer  coefficients,  the  behaviour  of  spirally  fluted 
tubes  is  quite  special. 

A)  The  flow  pattern  produced  by  the  computations  provides  an 
insight  into  the  thermal  characteristics  predicted.  Viewing 
the  flow  from  upstream,  the  spiralling  follows  a  clockwise 
direction  which  is  also  the  general  direction  of  the  flow  given 
by  the  velocity  direction  lines.  At  the  leading  face  of  the 
flute  a  high  pressure  region  pushes  the  fluid  away  from  the  wall 
and  to  lower  radii,  while  over  the  trailing  face  a  low  pressure 
region  is  created.  Thus,  because  of  the  difference  in  pressure 
some  fluid  spills  over  the  crest.  The  fact  that  the  friction 
factors  (based  on  hydraulic  diameter)  of  the  spirally  fluted 


Cubes  are  lower  chan  Che  unfluCed  Cube  values  can  be 
explained  by  Che  discribucion  of  Che  axial  velocicy  near  Che 
wall.  As  has  been  shown  in  Figures  3.15  and  3.16,  due  Co 
Che  proximicy  of  Che  fluCe  surfaces  and  Che  resulCanC  viscous 
reCardaCion,  Che  axial  velocicy  and  consequenCly  Che  mean  wall 
shear  scress  are  lower  chan  in  a  smooch  Cube.  Moreover,  Che 
heaC  Cransfer  enhancemenc  of  Che  fluCed  Cube  can  be  ascribed 
Co  cwo  differenC  factors:  che  increase,  due  Co  Che  f luces, 
of  Che  surface  area  per  unic  lengCh  of  Cube,  and  Che  convecCive 
cransporc,  due  Co  Che  secondary  flow  produced  by  Che  spiralling. 
The  imporCance  of  Che  second  facCor,  for  a  consCant  Reynolds 
number  and  fluCe  geometry,  depends  on  Che  fluid  used.  Thus, 
for  a  high  Prandcl  number  fluid,  convecCive  Cransporc  becomes 
much  more  imporCanC  Chan  diffusive  Cransporc  in  conveying  heaC 
across  Che  near-wall  zone . 

5)  Even  for  wacer  (Fr  -  7.03)  Che  enhancemenc  of  heaC  Cransfer 
coefficients  is  several  times  greater  chan  che  increase  in 
friction  factors.  In  this  case,  high  flute  density  and  tight 
spiralling  should  be  adopCed.  A  far  becter  improvement  has 
been  found  for  high  Prandcl  number  fluids  (echylene  glycol). 

This  means  Chat  spirally  fluCed  Cubes  could  be  used  beneficially 
in  oil  coolers  since  che  circulation  of  oils  often  Cakes  place 
in  the  laminar  regime.  For  chese  fluids,  Cubes  of  low  fluCe 
density  and  eight  spiralling  give  che  best  performance. 

6)  The  beneficial  effect  of  spiral  angle  on  Che  thermal  behaviour 
is  going  Co  be  reversed  beyond  a  certain  angle.  Although  this 


limit  has  not  been  reached  in  the  present  computations ,  its 
identification  would  be  something  one  would  need  to  explore 
in  order  to  optimize  the  flute  design. 


(b)  Turbulent  Regime 

The  computation  of  turbulent  flows  through  the  spirally  fluted  tubes 
using  the  standard  (k~e)/(m&h)  treatment  revealed  the  following  behaviour 

7)  The  flow  pattern  in  the  cross-stream  plane  indicates 
significant  differences  from  that  for  laminar  regime. 

Firstly(  the  radial  motion  produced  by  the  flutes  is  less 
pronounced,  and  secondly,  the  "back-flow"  over  the  crest  is 
either  absent  or,  in  tubes  of  high  flute  density,  very  close 
to  the  wall.  The  flow  pattern  seen  by  an  observer  placed  on 
the  flute  spiralling  clockwise  gives  a  clear  picture  of  how 
the  flutes  enhance  mixing  of  the  near-wall  fluid. 

8)  The  computed  friction  factors  of  the  spirally  fluted  tube 
are  higher  than  the  smooth  tube  values.  Moreover,  for  tubes 
of  30  flutes  at  30°  spiral  angle  the  computed  friction  factors 
display  an  increase  in  f  as  Re  is  raised.  In  this  case,  at 

A 

Re  ■  3  x  10  the  friction  factor  is  almost  118Z  above  the 
unfluted  tube  value. 

9)  The  predicted  Nusselt  numbers  are  also  higher  than  the  ones  for 
inf luted  tubes.  For  air,  for  a  tube  of  30  flutes  at  30°  spiral 
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angle  and  a  Reynolds  number  of  3  x  10  the  increase  is  130Z 


while  for  ethylene  glycol  solution  it  is  almost  3I5X.  Thus, 
the  predicted  behaviour  indicates,  at  least  for  the  high 
Prandtl  number  fluid  (Pr  -  19.6),  a  two-fold  increase  of  the 
heat  transfer  coefficient  compared  with  the  increase  of  the 
skin  friction.  This,  of  course,  is  very  desirable  since,  from 
the  literature  survey  reported  in  Chapter  1,  it  is  clear  that 
not  many  other  "enhancement  techniques"  exhibit  such  a 
behaviour . 

However,  the  comparison  of  the  predicted  values  with  the 
experimental  data  (available  only  for  tubes  with  n  *  30, 

$  -  30°)  showed  serious  disagreements. 

10)  The  experimental  friction  factors  are  sensibly  the  sane  as  for 
a  smooth  tube  displaying  a  decrease  as  Re  increases.  Thus, 

the  predicted  f  values  for  the  spirally  fluted  tube  are  not  only 
higher  than  the  experimental  ones  but  also  show  the  opposite 
trend  as  Re  is  raised. 

11)  The  experimental  Nusselt  numbers  for  air  show  only  a  small 
increase  over  the  smooth  tube  values,  while  the  computations 
give  an  almost  130Z  increase.  For  water,  at  low  heat  flux 
(uniform  property  flow)  the  predicted  Nusselt  numbers  are  two 
times  the  measured  ones. 

12)  Ho  significant  enhancement  in  Nusselt,  due  to  the  variation  on 
heat  flux  levels,  has  been  computed  with  uniform  fluid  propertie 
(but  with  density  fluctuation  effects  on  Reynolds  stresses 
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included  in  Che  core  region  of  che  aoluCion  domain).  Chough 
Che  experimental  data  ahov  a  aubaCanCial  effecC. 

IC  vaa  felc  chac  a  major  conCribuCor  Co  Che  diaagreemencs  mentioned  in 
paragraphs  10)  and  II)  may  ariae  from  Che  acCual  flow  exhibiting  a  viacous 
behaviour  in  Che  region  wichin  Che  flucea,  while  Che  compuCaCions  give  a 
turbulent  behaviour  (excepC  from  Che  viacoua  sublayer).  Thus,  in  order  Co 
reproduce  Che  conjecCured  viscous  fluid  behaviour  Che  Curbulenc  transporc 
wichin  cbia  region  was  suppressed,  a  modif icacion  chac  resulced  in  a  far 
bectar  agreemenc  with  Che  experimenca  since: 

13)  Ic  reduced  Che  friccion  factors  by  almost  20Z  from  Che  originally 
predicted  values  while  reversing  Che  crend  of  Che  skin  friction- 
Reynolds  number  behaviour  for  Che  case  of  30  flutes,  30° 

spiral  angle . 

14)  1C  reduced  Che  Nuaselc  numbers  for  air  by  an  amount  comparable 
with  Chat  found  in  skin  friction  (13Z). 

13)  Ic  reduced  Che  NusselC  numbers  for  wacer  by  only  7%  since  in 
this  case  Che  suppression  of  turbulent  diffusion  does  not 
reduce  (indeed  leads  Co  an  increase  in)  convection  which  is  Che 
main  mechanism  in  conveying  heat. 

The  above  tesc  suggests  chat  che  mixing-length  hypothesis  adopted  in 


Che  near-well  region  should  be  replaced  by  a  turbulence  model  capable  of 
predicting  lacunar izat ion  of  che  flow  wichin  che  flutes,  for  example  Che 
low-Reynolds-number  k-c  model  (see  Jones  and  Launder  [  1 10]  ,  [ill].  Durst 


and  Rastogi  { 1 12] ) . 


The  disagreement  reported  in  paragraph  12)  suggests  that  the 
buoyancy  effect  associated  with  the  swirl  is  not  important  in  the  core 
region  of  the  solution  domain.  This  effect  could  be  important  in  the  near¬ 
wall  region,  though  the  introduction  of  the  simplified  buoyancy  ASM  of 
Gibson  and  Launder  [  69]  into  the  curvilinear  grid  has  not  been  attempted 
here, due  to  the  complexity  involved.  However,  this  possibility  could  be 
explored  in  the  future.  As  an  alternative  physical  source  of  the  enhanced 
heat  transfer  under  high  heating  we  note  that  the  temperature  dependence  of 
viscosity  is  rather  substantial  for  water  flow.  The  present  computations, 
however,  do  not  include  property  variations  because  strictly  the  assumption 
of  fully-developed  flow  is  not  compatible  with  these. 

Finally,  the  introduction  of  the  simplified  ASM  (including  swirl 
effects)  into  the  core  region  of  the  solution  domain  and  at  the  same  time 
the  suppression  of  turbulent  diffusion  within  the  flutes  produced  a 
substantial  improvement  of  the  predicted  skin  friction  bringing  results 
much  closer  to  the  experimental  data  (see  Figure  5.41).  Thus,  in  the 
Reynolds  number  range  considered,  the  predicted  friction  factors  are  only 
7Z  -  20Z  higher  than  the  measured  values  by  LaRue. 

In  view  of  the  satisfactory  agreement  reported  above  and  the 
experimental  difficulties  stated  in  [l],  [59],  [60],  it  is  believed  that 
the  ultimate  objective  of  developing  a  computer  code  useful  for  the 
optimization  of  the  tube  design  has  been  substantially  achieved. 


APPENDIX  1 


The  Computer  Code  for  Generating  the  Grid 
Mapping  the  Solution  Domain 


1 . 1  Introduction 

A  short  program  has  been  written  for  generating  the  grid  used  in  the 
main  program  (described  in  Appendix  5).  The  original  program  has  been 
written  at  Imperial  College;  however,  many  changes  and  additions  have  been 
introduced  by  the  author  of  the  present  thesis.  All  the  geometrical 
parameters  are  set  in  the  grid-generation  code  and  they  are  written  to  a 
file  that  the  main  code  can  call. 

The  program  creates  a  grid  which  covers  a  flute  bounded  on  the  outer 
surface  by  the  tube  wall  itself  and  at  the  inner  surface  by  a  circular 
boundary  of  radius  on  the  cross-stream  plane  of  the  spirally  fluted  tube 
(an  example  is  shown  in  Figure  2.1). 

The  grid  produced  is  divided  into  two  regions:  an  orthogonal  curvi¬ 
linear  part  in  the  vicinity  of  the  wall  and  a  polar  part  over  the  rest  of 
the  solution  domain.  This  mixed  grid  has  been  found  to  be  very  effective 
for  producing  a  far  more  uniform  coverage  of  the  solution  domain  when 
compared  with  a  fully  curvilinear  grid,  shown  in  Figure  2.2.  An  orthogonal 
curvilinear  grid  has  been  used  near  the  wall  because  it  is  only  by  using 
"body  fitted"  co-ordinates  that  one  can  refine  the  grid  satisfactorily  to 
resolve  the  regions  of  steep  gradients.  The  grid  has  been  created  by 
defining  one  family  of  lines  (constant  n  lines)  and  calculating  the  second 
family  (constant  £  lines)  normal  to  the  first. 
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1.2  A  Brief  Description  of  the  Computer  Program's  Structure 

The  computer  program  comprises  only  one  routine.  Initially,  parameters, 
constants,  indices  and  geometrical  characteristics  of  the  fluted  duct  are 
defined.  Then,  a  distribution  of  points  is  fixed  on  the  constant  r|  line 
representing  the  wall  and  defined  by  the  sinusoidal  equation 

R  ■  Rh  ♦  h  cos  (2ira/e> 

where  R^  is  the  mean  radius,  h  the  rib  height,  Q  Che  angular  position  and  6 
the  sector's  angle  given  by  the  equation 

8  -  2u/n 

n  being  the  number  of  flutes  around  the  circumference  of  the  tube.  The  local 
radius  of  all  members  of  this  family  of  lines  is  given  by 

R  •  R  +  h  cos  (2 nCl/9) 
o  o 

where  R  is  the  mean  radius  and  h  /h  a  prescribed  function  of  R  /R,  whose 
O  O  O  D 

variation  has  been  described  in  Sections  2.2  and  4.2.1. 

The  second  family  of  co-ordinate  lines  is  drawn  orthogonal  to  the  first 
using  an  iterative  procedure  described  in  the  following  section. 

Next,  the  polar  part  of  the  grid  is  calculated  and  for  the  whole 
solution  domain  a  number  of  geometrical  variables,  such  as  control  volume 
lengths,  boundary  radii,  rib  heights,  spiral  angles,  etc.,  are  defined, 
which  are  stored  on  a  tape  called  at  the  beginning  of  the  main  computer 
program  (described  in  Appendix  5). 


AC  Che  end >  che  orthogonality  erf  n  and  £  co-ordinate  lines  is  tested 
and  several  variables  are  calculated  and  stored  for  subsequent  use  by  Che 
plotting-program* 


1 .3  An  Important  Detail  of  the  Computer  Code 

The  idea  used  for  generating  the  second  family  of  co-ordinate  lines 
(constant  £  lines)  orthogonal  to  the  first  (constant  n  lines)  is  given 
below: 


Suppose  that  f(x,  y)  and  g(xt  y)  are  functions  representing  two  lines 
in  a  (x,  y)  Cartesian  co-ordinate  system  and  (x^ ,  y^ )  is  a  known  point  on 
f(x,  y).  The  problem  arising  is  "how  a  line  can  be  drawn  orthogonal  to  both 
f(x,  y)  and  g(x,  y)  passing  from  (Xj,  y^".  The  equations  which  can  be 
written  are: 


yt  -  Qx‘  +  8  +  y 


(Al.l) 


which  represents  the  unknown  line  at  (x^,y  ) 


2dx  ♦  8  -  -i  /  \ 
l  l 


(A  1.2) 


representing  the  orthogonality  of  the  unknown  line  and  f(x,y),  X ^  being  the 
the  tangent  to  f(x,  y)  at  (x  f  y  ) 


2Qx  +  6  -  -I  /  X 
2  2 


(AI.3) 


representing  the  orthogonality  of  the  unknown  line  and  g(x,y),  being  the 
tangent  to  g(x,  y)  at  (x  ,  y  ) 
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g(x  ,  y  )  -  0 

2  2 


(A1.4) 


y  ■  Q  x2  +  6  x  +  v 
2  2  2 


(A1.5) 


confirming  chat  (x  ,  y  )  is  a  common  point  to  both  g(x,  y)  and  the  unknown 
2  2 

line.  Subtracting  CA 1.1)  from  (AI.5)  and  (Ai.2)  from  (A1.3)  we  get: 


y  -  y  ■  Q  x2  -  x2  +  B  x 
2  1  (.  2  lj  2 

„  1  fill 

Q  ■  2lx  —  TT. 

A  1  '  1  II  ' 


X  -  X 

2  1 


2  11  2 


( A 1 .6) 


(A  1 .7) 


while  substituting  (A1.7)  into  (AI.2)  we  find: 


ra-  1  xi  f  >  l 
3“  T  *  T  ’  T 

f  A  »  '  I  <1  ' 


1  2  12  2 


( A 1 .8) 


Substituting  (A. 17)  and  (A1.8)  into  (A1.6)  we  get: 


X2_  f  1  .  1  .  Xl  f  1  ^  1 

-y,  “  — #■  *  r.J  *  2  k  r. J 


2(y  -  y  ) 

x  -  x  +  - 1—1 1- 

2  1  J/X  +  1/X 

1  2 


( A 1 .9) 


Equations  (A1.4)  and  (A1.9)  can  be  solved  iteratively  and  so  the 

unknowns  x  ,  y  can  be  calculated.  Thus,  from  equations  ( A 1 . 5 ) •  (A1.7), 
2  2 

(A1.8)  the  values  of  Q,  8,  y  of  the  unknown  line  y«Qx2  +  Bx-*-y  can  b 
found. 


The  above  procedure  has  been  applied  for  just  half  of  the  solution 


domain  (the  sector  between  trough  and  crest  radii)  since  the  other  half  can 
be  calculated  as  symmetric  to  the  first. 


COST(If J)  -  cos(£  n.  y) 
cosapt(i,j)  -  cos(^r  c,  y) 

COSR(I,J)  -  cos  F 
DYDX(I,J)  -  tan  n,  y) 

DXC(I,J)  ”  length  of  the  control  volume  surface  in  ^-direction 
DYC(I,J)  “  length  of  the  control  volume  surface  in  redirection 

DXIDF<I,J)  -  |&  at  (I,J) 

detadf(i.j)  -  |2.  at  d,J) 

DRDXI(I,J)  -  p  l  bz  at  (I,J) 

DRDETA(I,J)  -  ~l  *  hl  at  (I,J) 

F  -  tan'^Y/X)  -  Q 
FI AXIS  -  spiral  angle  -  $ 

HIHR(I,J)  -  —  -  -f 

H  -  h 

1  ■  index  for  dependent  variables  in  ^-direction 
C  *  index  for  dependent  variables  in  n-direction 
NI  ■  number  of  n  lines 
NJ  ■  number  of  5  lines 
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NFLUT  -  n 


NIH  -  n  line  representing  Che  crest  position 
NPOLAR  *  number  of  polar  5  lines 
P1H  -  tan  $  -  1/b 
RAD(1,J)  ■  radius  of  (I,J) 

RR(I,J)  -  RAD(I,J) 


i  w 


RA  -  R 

a 

RM  ■  matching  radius  between  curvilinear  and  polar  parts  of  grid 
R  »  radius  of  (I,J)  »  R^  +  h  cos (2nF /THETA) 

SINT(I,J)  -  SIN  (fcn,  Y) 

SINAPT(I,J)  -  SIN Y) 

SINR(I,J)  -  SINF 


THETA  -  2n/n  -  0 

X(I,J)  -  Cartesian  co-ordinate  of  (I,J) 


Y(I,J) 


-  //  - 


]  <£  H  (x,y)  »  (0,0) 


XX(I,J)  -  X(I, J)  Rb  (in  cm) 

TY(I,J)  -  Y(I,J)  Rb  (in  cm) 
XN(I,J)  -  0.5  (XX(I-1,J)  +  XX(I,J)) 
YN(I,J)  -  0.5  (YY(I-I,J)  ♦  YY(I,J)) 
XE(I,J)  -  0.5  (XX(I,J)  +  XX(I.J-D) 
YE(I , J)  -  0.5  (YY(I,J)  +  YY(I,J-1)) 
XC(I,J)  -  0.5  (XN(I,J)  +  XN(I , J- 1 ) ) 
YC(I,J)  -  0.5  (YN(I,J)  ♦  YN(I,J-1)) 
XI(I,J)  -  X(I,J)  Rb  (in  m) 

YI(I,J)  -  Y(I,J)  Rb  (in  m) 

X2(I,J)  -  X(I,NJ)  Rh  (in  m) 


1-4-b  Listing  of  the  computer  code 


c  *********************************************************  ************** 

C  PROGRAM  FOR  GENERATING  ORTHOGONAL  GRID  COVE  RING  A  PART  OF  A  * 

C  FI HTE  (  FRO"  THE  WALL  HP  TO  A  RADIUS  RA  )  ON  THE  CROSS-STREAM  * 

C  PLANE  OF  A  SPIRALLY  FIUTED  TUBE. 

C ***************************************************************** ****** 
PROGRAM  GR ID ( INPUT /OUTPUT /TAPF 5*1 NPUT»TAPF6  =  0HTPUT,T ape  1 1  /7APF8R, 

1  TAPE22) 

DIMENSION  X(25,25),Y(25,25),OYDV(25,25),RAD(25,?5) 

0 TMFNSION  SX(25/25),SY(25/25),DvC(25,25),DYf(25/25) 

DIMENSION  DXIDF(25,25),D6TADF(25,?5) 

DIMENSION  D2DX (25/25) 

DIMENSION  DROXI (25,25'/«R0ETA(25,25) 

DIMENSION  HTHB (25/25 ) /RR (’5/25 ) / ANGL (25/25 ), FF (25/25 ) 

DIMENSION  XX(25/25)/YV(25/25),XN (25/25), YN( 25 /25),XE(25/25) 
DIMENSION  YE(25/25)/Xr(25/25)/Yf(25/25)/COST(25/25),siNT(25/25) 
DIMENSION  C0SAPT<25/25) /SIUAPT (25,25) 

DIMENSION  COSR(25/25) ,SINR( 25,25 ) 

DIMENSION  Xl  (25/25  ), Yl (25,25 )/X2 (25 ),Y2 (25) /XML (25) 

DIMENSION  X"LL(25/25)/YL(25/25) 

C ******************* a ***********  *** 

C  PARAMETERS  AND  CONSTANTS  * 

c  **************************  *****  *** 

E-1.E-2 
MAXIT*12(1 
S"ALL*1 .E-30 
PT*3. 1*159 
HR  F  X»»  4 
HP  FV*«4 

C ********************************* 

C  GEOMETRY  OF  FLUTED  DUCT  * 

C ******************** ************* 

C  I N I T 1 Al  VALUE  FOR  RB 


B«I*RP 

RM«.8fl*RB 

INITIAL  VALUE  FOR  RA 


RAsRM 

H*0.06*RB 
•  AH*M 
NFLHT«30 

THETA*2.*PI/FL0AT(NFLUT) 

c  ***************** 

C  INDICES  * 

c ***************** 

NI*17 

C  MUMPER  OF  XI  LINES  for  THE  CURVILINEAR  PART  of  grid 


N  J  *  1 

4 

I  POL 

AR*1 

NPOl 

AR»5 

j  GsNPOL  A  R*2 

MIM1 

■NI-1 

NJM1 

■N.I-1 

NT  PI 

»NI*1 

N  J  PI 

»NJ*1 

2 


NlH*{NI*1 >/2 

NIhP1*NIH*1 

NIM3*NI-3 

NIHP1 *NIH-1 

NIH*2*NIH-2 

NIHP3*NIM-3 

niii5*NI-S 

C ********************* ***************** 

C  RADIUS  DECRFNENTS  * 

C  ************************************** 

0»*<RP-RA) *<1 .-1 ,25)/(1.-1.25**(NJ-1)) 

D»I*DR 

r ************************************ 

r  INITIALISATION  OF  VAST  APL  F  S  « 

C ******************** ***********  ***** 

DO  501  1*1,75 
DO  501  j*1,75 
DXC<I,J)«1. 

DVC(i»J)«1. 

0XI0F(I,J)*1. 

OFTADF ( I , J )*1 . 

DRDXl f I,J >*1. 

0 ROFT  A ( I , J ) *1  . 

ANSI (I»J)»1.0 
FF(I,J)«1.0 
RP<I,J)*1.0 
XXII, J )*1 . 

YY(I,J)*1. 

XN(I,J)*1  . 

YN(!,J)*1. 

XE(I,J)*1. 

YFII,J )*1  . 

XC(I,J )•?. 

YC(I,J>*1. 

COST ( I , J )*1 • 

SINT(I,J>*1. 

C0SAPT(I,J)*1. 

STNAPT(I,J)*1. 

C0SP(!*J)«1.U 
S IN# ( I / J ) *1 .0 
501  CONTINUE 

C  *****************************************************  **************** 
C  XT  LINES  A»E  DEFINED  AND  FTa  LI«ES  ARE  CAIC'ILATFO  * 

C  INITIAL  DISTRIBUTION  OF  X  *N0  Y  on  The  SPECIFIED  xi  LINF  * 

C  For  J*1  REPRESENTING  THF  UALL  ,  J*nJ  REPRESENTS  RADIUS  PE  * 

C ***************************** ****************************** ********** 

.1*1 

oo  101  1*1, NIH 
IF(T.EQ.I)  F*0.0 
IF (I.EQ.2)  F*ThETA*0.O8 
IF(I.Fa.3)  F*C , 1 6*THE  T  A 
IF(I,F0.4)  F*THETA*0.?A 
IFII.FQ.5)  F*THETA»0.31 
IEII.F0.6)  F*THETA*0. 37 
IFII.F0.7)  F«THFTA*0.A3 
TF(I.EO.tt)  F*THETA*.4P 
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IKI.F0.9)  F«THETA*.5 
1931  CONTINUE 

R«RB*H*CO'S  (?.*PI*F/THFTA) 

X  ( I  ,  J  ) *R*S IN  (  F  ) 

Y(I,J)»R*COS(F) 

0Y0X(I,J)»C-R*SIN(F)-C0S<F)*H*2.*pI/THETa*SIN(2.*PI*F/THFTA>)/ 

1 (SMALl  +  R*COS(F)-STN(F)*H*?.*pT/THFTA*SlN(’.*Pl*F/THFTA)  ) 
in  CONTINUE 

DO  111?  Js?,NJ 

C  *******************************************************  ******  *  ********* 

C  SPECIFY  GENERAL  shape  OF  XI  LIHFS  FOR  J  GBE  A  T  FR  OP  PQUAl  TO  2  * 


IFCJ.NE.2)  OR»D»*1.?5 
PRspH-0 R 

:  calculation  of  h  for  .i  greater  or  eoual  to  ? 

AA«ATAM(  (RBI-RAW?.  /R»I/((RPI -HP)/  RPI- 
1  CPHI-RA)/2./R8n  ) 

IFCAA.LT. 0.0)  AA»A**PT 
TF(AA.GT.Pl)  AA«AA-PI 
H*( AA-PI /4. )**1 ,25*AH*(2./PT)**1.?5 
W»ITE(6,1?34)  RP,H 
1234  FORPATC1H  /1E10.4/SX/1E1 J.4) 

'****#*♦**-*******  +  **-***  +  ***4****  *+*♦*+*♦*♦********  ***  *  *  *  it  **** 

:  ttfpativf  proceoure  f0«  calculating  x,v  on  the  speciftfd  * 

XT  linfs  ano  eta  lines  for  half  the  solution  co«ain  * 

■**«******t*»****»«**<i**»*iiit****  **  *************************  ******* 

DO  1(13  1*1, NIH 

nttfr*o 

104  NITFR*NITER*1 

TF  (NITER. ECJ.1  )  X(I,J)>X(I#J-1) 

TF(NITFR.FQ.I)  Y(I,J)«Y(I,J-1> 

FsaTaNCX<I,J)/<SNALL*y<I,J))) 
r«PP+H*COS  C2.aPI*F/THFTA) 

DYDX (I ,J )* C-R*STN(F)-COS(F)*H*2.*PI/TMFTA*STN(2.*PI*F /theta ) ) f 
1 (SMALL  +  RACOSC  F )-SIN (F)*M*?.*PT /TmETA*SIH (2.*PT*F /THFTa ) ) 


AX*X  (  T  ».l  ) 

X  <I,J  )SX  (  I  ,J-1  )*2.*(V  (I  ,J-1  >-Y  (T  ,.l  )  )/  (1  ./  CSMALLADYOXd  ,J-1  )  ) 
1*1./(0YDX(I,J)+ SHALL)) 

X<I,  J  )«iirfx»)(  (I  »J  )*(i  „-iirfx)*ax 

AY«Y (  I  ,  J  ) 

F*ATaN(X(I»J)/CSMALL*Y(T»J)>> 
r«rR*H*C0S<2.*PT*F/THFtA ) 

YCI,J )«R*COS(F) 

YCI/J  )sMRFY*Y(I»J  >*C1.-URFY)*AY 
IFCJ.Fa.NJ)  YCI,J>»SORT(R**?-*(T,J)**?> 

IF(I.FO.NIH)  X (I,J )*R*STNCTHETA/2.) 

IFCI.Ftt.NlH)  YCI,J)»R*COSCTHETa/?.) 

301  CONTINUE 
XP»XCI,J) 

YP*Y  (  I »  J  )  . 

IF(NITER.GT.MAXIT)  Go  TO  105 
GO  TO  104 
105  CONTINUE 
103  CONTINUE 
10?  CONTINilF 

C ********* ****** ******** *** ******************* ************* *********** 


C  CALCULATION  Of  THE  SECOND  HALF  OF  THE  GRID  USlNo  THE  VALUES  * 

C  JUST  FOUND  FOR  ITS  SYMMETRIC  HALF  * 

C *********** *********************************************** *********** 
H»AH 

DO  131  J«1,NJ 
IF(J.EO.I)  RB*RPI 
IF{J.GT.2)  DRI*0RI*1.?5 
IF(J.6T«1)  RB«RP-0Kl 

AA«ATAN( <RBI-RA)/?./R«I/ ( < RB I-RP > / RP I - 
1 (RBT-RA)/?./RBI) ) 

IF(AA.LT.O.O)  AA*AA*PT 
IF(AA.GT.PI)  AA»AA-PI 

TF(J.GT.I)  H» ( a A-PI /4. ) **l.25*AH* ( 2. /PI 1 **1 .25 
HRITE<6,2345)  RR,H 
7345  FOrn AT ( 1 H  »1E1C.4,5X,1E10.4) 

DO  131  IaNIMp1,Nl 

F*ATAN(X(NI-I*1 ,J )/ <S*ALL*Y  fUI-T  +  1 ,J ) ) ) 

F«THETA-F 

R*SORT  (X  (N  1-1*1  ,J)**2  +  v(NW  +  1,J)**?) 

OYDX(I,J )*(-R*SIN(F)-rOS(F>*H*2.*PI/THFTA*SIN<2.*PI*F/THETA) )  / 

1 <SMALL*R*C0S<F)-SIM<F)*M*2.*PI/THETA*SIM(7.*PI*F/THFTA) ) 
X(I,J)«R*SIN<F) 

Y<I,J1»R*COS<F) 

131  continue 

c ***************************************************** 

C  CALCULATION  OF  The  POLAR  PART  OF  THE  GRID  * 

r *************************************************** ** 

IF(IPOLAR.EQ.O)  go  to  1731 
N.IPOL*NJ+NPOLAR 
N  J  1  *A|J  +  1 

01*0.034 

DO  7856  J  *  N  J  1 ,  K  J  P  0  L 
IF(J.EQ.(NJ1*1  )  )  01*0.039 
I F ( J .Eg. (Nj 1*2))  01*0.045 
TF(J.E0.<NJ1*3)>  01=0,052 
IF(J.GT.<NJ1*3>)  01*0.06 
OO  7856  1*1, NI 
F*aTAN<X(I,MJ)/Y(I,NJ>) 

Y(I,j)*Y<I,J-1 )-Ol*COS(F) 

X(I,J)*X(I,.I-1  )-01*SIN(F) 

DYoX(I,J)«DYUXCt,NJ) 

. 78S6  CONTINUE 

f  NUMBER  OF  XI  LINES  FO*  POTH  CURVILINEAR  AND  POLAr  Parts  OF  GrTD 

r  - - - . - - - ...... _ _ _ _ _ _ _ __ 

n  j*n.i  pol 

N,IP1*NJ*1 
NJM1*N.I-1 
1731  CONTINUE 

f  *********************************************************** 

r  tntfrchangf  i  infs  j*i  ano  n.i  for  thts  problem  * 

c  ************************** ****************** *************** 

00  106  1*1, NT 
DO  106  J*1,MJ 
P?DV(T,J)*X(I,J) 

106  COnTINUF 

00  107  T*1,NI 
no  107  J  ,|  s  1  ,  N  J 


.  .  X(I,J)x07DX(I,JJ) 

107  CONT  TNIIF 

00  1S4  Ixl, NI 
(>0  154  Jx1,NJ 
070X{J,J>xV'i#J> 

154  CONT  I  NllF 

on  164  Tx1,NI 
on  144  J  .j  x  1  ,  N  J 
.(■N.l-J  J*1 
Y(i,J)x07DX(I,JJ) 

144  CONTINUE 

on  71(4  Ix1,ni 
00  706  Jx1,VJ 

706  o7DX(T^J)«0V0X(T«J) 
on  707  T*1 f NI 

00  7()7  ,( J»1  ,N  J 

707  DV0y(T«J)*07DX(I«JJ) 

c**************************«*****xx*****x*x*****x* 

C  r*i  chlaTf  lengths  of  contpoj  woi  im*es  * 

r************************************************* 
no  ion  j«i,nj 
sx(i,j)«o. 
on  inn  ix?,nj 
0XxX(T,J)-X(I-1,J) 

0V»V(I,J)-Y(i«1#J) 

Sy(T?J)xSX(l-1,J>*S0pT<DX*DX*DY*DV> 

108  CONTINUE 

on  110  Ixl, NI 
«Y(T«1 )»0. 
on  110  jx?,Nj 

or«xn,j)-x(i,j-1) 

DYxV(I,J)-YU,J-1> 

SY(T?J)xSY(I,J-1).fS0RT<0X*DX*DY*DY> 

11(1  CONTINUE 

on  ill  .|x?,njPi 
on  ill  1x2, mj 

0Yf(i,j)x«x(i»j-l)-nx(i-1»j-l) 

111  continue 

00  11?  Jx?,NJ 
00  11?  JX?,NIP1 

DYC{r,j)xsv(i-i,j)-svci-i,j-i) 

11?  CONTINUE 

r  *****»*»************»****■*•******»************************+****»***** 

C  CAl  Cll|  ATION  OF  PE0MFTP1C4I  VAPIARI FS  USEFUL  FOP  Thf  SOIIiTIOm  * 

C  OF  VFLOCITY  and  TE«PF"ATHRE  FIELDS  IN  A  SMPAIlY  FLIITFD  TURF  * 

on  13?1  rxi,Ni 
OO  1S?1  J  ■  1 , N  J 

TE(J,LT.NJ)  xl  (l,.'  +  1  )«XU,J1 
IF(.I.LT.NJ)  Y1(I,J*1>XY(I,J> 

TE(J.EO.NJ)  X?(T)xX(I,N.I) 

T  F ( J  »FQ.N J  )  Y?(T)»Y<I,N.I) 

1  3?1  CONTINUE 

00  13??  I • 1 »N I 
XI (T,1 )«X1 (I,?) 
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V1<T,1)«vl(T,2) 

13??  contjniif. 

oo  1571  l«i#NJ 
o«  il?3 

OO  1374  II»1»NI 

XPL  f  IT  )»}50RT(  (X?CTI  )-*1  Cl  »J  )  )**?4(y?(  1 1  >-v  1  <I,J)  >**’> 
TFCIJ.fO.1)  X*ll CI*1,J>aXPL(lT) 

XP|  l  (J41,J)bAPIN1  (XHLl<I4l».l>#X,*LfTT>) 

1374  CANTINiiF 
1373  CONTINUE 

00  1375  J ■ 1 /N J 

1375  X«l  lC1#J)»XHll(NI,j) 

4  T  P 1 aN I ♦ 1 
N.IP1aN.|+1 

00  1 374  I»1»NIP1 
1  3?A  X**|  I  <  T  ,MJP1  )«C.P 
no  113  t»1»hi 

00  113  J *1 #N J 

B»0<  T,.l  laSOBTIX  <  t#J)*V(t»J>4Vri,J)*V(T#J)1 
*»(!  +  1»,l*1)»R»0(I*J) 

113  fONTTNHF 

00  797  Ta',  ,NI 
7«7  PP ( T4l ,1 )apP ( I «1 #7) 

00  70S  Ja1,*U 
79«  PP (1 ,J41 )brp <N  I  ,  J41  ) 

P»(1 f 1 )«PP(PT»  1  ) 

FTAxis«4.*ATAP<1 ,)/12. 

PTHaTANCF TAXIS) 

00  135  I«1,NJ 

30  133  ,|a1#Nj 

TKPIM.FO.O.tn  00  TO  3549- 

p*ArTPPA0(I»j)/(RAD(I».|1ir*^«(1  .  /  PTH)**?1 
HTMP(l4l,.l4l)*S0PT(PAO(I,.l  )**74f1  ,/PIM)**’) 

1 / fl . /PTM) 

IT(T.Fg.l)  "W0xT(l4l#.l4l)«(PAO(T4l,J)-P*O(I,J)) 

1 /OXPtTtl ,J41 )*RFACT 

T»(T.RT.1.APD.t.LT.NI>  OROXT{T4l,.l4l)»(PA"(T4l»J)- 
iK*ft<i-i»J))/(Oxr(T4i».i4i)-»oxr(i,j4i))*pTArT 
»*<T„FO.WT)  0  •  0  X  I  (  T  ♦  1  #  J  ♦  1  )  •  (  R  A  t)  f  I  »  J  >  «*P  A  O  (  T  —  1  #  J  )  ) 

1  /o»f  (T  #.»4l  >*PF  ACT 

I f < J.Fo.1 >  0p0FTA(l4l*J4l>«{«A0fI#J41)-PAO(l#J)> 
1/"vr<T4l#j4l)*PfACT 

t*(j.«t.i.aoo.j.it.pji  r>pr>eTA(i*i»j*i>»(o*n(i»j*i) 
1-»A0(!,J-1))/(0vCM41». 1*1)  ♦0yr(T*i,j))*0  FACT 
t'(J.Fg.NI)  0P0*TA(l4l,.l*1>«(PAOcT,J)-PAD(I,J-1)) 

1 /ovr (T4l t  1  )«P*ACT 
00  TO  3579 

isfo  htmP(I*i, j^i )»i.n 
OPOXt  <1*1  ».l*1  >aP.P 
OP  OF  T  A ( I ♦ 1  ,J41  )»0.fl 
3579  rONTTNtlF 
1X5  fOKTTNtlP 

0O  319  Ta1,NIM 
0"  319  Ja1,NJ 
AN(iFTaATAN(OVDX  f  1  ri  )  ) 

ANfiFTaAPSt ANfiFTI 

ANftPaP  T /?.-ATANfV(T , J ' / ( * (I , J ) tSMALL ) ) 


ANGPsARS(AHGR) 

ANGl jl*1 ,J  +  1 )»ANGFT-ANGB 
9  CONTJNIIF 

On  14?  I*NIMP1,NI 
.  .  DO  14?  .1 » 1  ,  N  J 

14?  ANGl (Ifl e J*1 >»-BWSI (NI-I+7/J+1 ) 

00  3R47  J»1,NI 
00.3*47  .J«1,NJ 

OXTOF  (I  41  ,J*1  )sRAD(I,J)/C0S(ANGl(l4),J+1  )  ) 

OPT  A D F  (  1*1  ,.141  )«OXIDF (1*1  ,  J*1  )*TAM{  ANGL  (1  +  1  #J41>>*(-1.) 

3*4?  CONTINUE 

‘  **********************  A**********  »**A»****A«****************A**t**< 

STrtBg  BBSULTS  on  TaPE  WHICH  is  CALLED  ay  THE  PATN  PROr.RAH 
FOB  THE  SOLUTION  OF  VELOCITY  AfjO  TE*PFRAT'JRE  FIFLOS  IN  A 
SPIRALLY  FIUTEO  TUBF 


WRITE  (11)  DXC,DYC,nylDF,DFTADF,6R6xT,PRDETA,HTHP,PP,ANG| 
1 ,BR,BA,AH,NFLUT,FTAXIS,JG,XNLI 
.g.iPlaNjAi 
NTPIsNI+i 
OO  3994  JJ»1,NJP1 
J«N.IP1-J  J  +  1 

WPTTF(6,115)  (J,(XMLL(I,J),I=1 ,NIP1 ) > 

390<s  rOMTINMF 

0"  4124  I*2,NIP1 
no  4124  J«2,NJ 

41  ?4  Yl  (I,J  )*.5*(RP(!,J41)4RP(T,J)) 

DO  4175  I«?,NIPl 

YI.(T,1>»p»(I,1) 

4175  Yl(I,MJP1)sRR(I,NJPl) 

DO  4126  J«1,NJP1 
4  1  26  Yl (1,J)«YL(NI,J) 

WRITE(7?)  YL 
REWIND  ?? 

C  ******************** 

C  P"INT  (HIT  * 

C  *A*1r**A*A*AA******A 

jpiTE(o,?ni > 
po  114  JJ»1,NJ 
JRNJ-J.I  +  1 

WPITF(6,115)  (J,(X(I,J),I*1,NT)> 

114  rONTINHF. 

WRITE (6,202) 

DO  lift  J.I«1,NJ 
.l*NJ-J.|4l 

WRIT? (6,1 IS)  (J,(V(T,J),I*1,NT>) 

116  CONTINUE. 

WR ITE (6  »  703 ) 

DO  117  JJ«1,NJ 
•IRNJ-J.I4? 

117  WRTTF(6,118)  (DXC(I,J),Is?,Nl) 

URITF(6,?0*) 

DO  119  J  J  *  ?  ,  N  ,1 

119  WRITE (6,118)  (DYC(T,J),T«?,NTP1  ) 

U*ITF(6,?0S) 

DO  1?1  .1 ,1  *1  ,M.I 


-  . 

171  WRITE<6,1181  (RAO (I #J ) #1*1 #Nt ) 

W»ITf  <6,j>ri6) 

0 «  1  73  J  .1  *  1  #  N  J 

1?3  URTTF(O#?07>  (J#<DXIDF<T#J)#I*1#NI)> 

WRITE (A#?C8) 
no  1  74  jjai»Nj 

174  W»ITE(A,?n71  (J , (OFTARF (I #J > #T»1 ,NI ) ) 
on  377 
J»N,I-J  J*1 

URITE(0#?07>  CJ#(OrOxT (I,J),Isi#Ml)1 

377  CONTINUE 

OP  388  JJ*1#N.I 

.1  J  +  I 

388  URITF  (A#?07)  (J»(OROETA(I,J),Ta1,Nn) 
no  445  j.jslsN.1 

445  WRITF(A#?P7>  (  J  ,  (HTMR  f  I  ,  j  )  ,  Jsl  ,wn  ) 
UPiTF(6,118)  <RR(I) #1*1 #NIP1 ) 

C  ♦♦♦**tT***#*<Mfc******  +  #*t***t#******##**********tr**i 
C  TEST  FOR  ORTHOFONAI ITV  OF  ETA  AWO  XI  LJNE5  * 


00  0()1  T*1,NI 
DO  oni  JJ«?#NJ 

D1*-1  ./(sNALL4DYDX(!#.l4l  )) *1 , / ( «M ALL *0 Y 0 X ( I # J > > 
At  FA*.S/(X(T,j4l)-X(I,.l))*D1 

R*TA«-AIFA**(I»J+1)*?.-1./(SMALI*nYnx(I.J*1)) 

IF(,IJ.EO.?)  D70X(T,j4l  )*2.*ALFA*X(I»J*1)*nETA 

n7DX(T,J)*2.*AlFA*X(I,J)+PETA 

TF(  J.I.FO.?)  D7dX(T».|41  )*ATAN(PZPXCl#J4l  )  ) 

DTOX{I,J)«ATAN(Oznx(I,J)) 

901  CONTINUE 

URTTF<6#904) 

904  FOpp at ( 74 H  INCLINATION  OF  XI  I  INFO) 

00  90?  JJ*1,NJ 
•l*N.I-J  J41 

90?  WP I TF  ( 6  #903 )  (J#(07DX(I»J)#T«1#WI)> 

003  FORNAT(5x,I5,(10Ein.41 ) 

00  354  ta1,NI 
00  354  .1*1, N.l 
OYOX (I ,  J ) ■ AT  AN (OYOX  (I  #  J  )  ) 

354  CONTINUE 

W»ITF(6,4Pn 

401  FORNaT (?5M  INCLINATION  OF  ETA  L  TNE  S ) 

D»  302  J  J*1 #NJ 
J41 

302  WRITF(6»402)  ( 0 VOX ( I , J ) , I* 1 ,NT ) 

C *****'***♦***************♦*  *********** 

C  WRITE  RESULTS  ON  TAPE  ANP  REWIND  * 

C ************************************* 

00  477  I si #N  I 
QO  477  .1*1, Nj 
X*<I*1,.I*1>*X(I,J> 

VY<1*1 ,J*1 )«Y (I  #  J ) 


Cnsr<T+1 *J+1)*C0S(0YD*<T*J )) 

STNT(T*1,J.f1)*S!N<DY0»<T,J>> 

COS APT <1*1 ,J*1 >*COS<07DX< J  ,J>) 

$TNAPT<I*1,J4l)»STN<D7DX<T,J>> 

477  CONTINtlF 

00  471  I*?,NIP1 
XX(T,1 )*XX(I/7) 

YY(I,1 )*YY(I,?) 

COST  { I  ,1 )*COST<I,?> 

9  T  NT (1*1 )*STNT(I,?> 

CnSAPT (1,1 )»COSAPT (T  ,  ? ) 

471  STMAPT(I,1 )*SINAPT(I,?> 

00  888  T*1,NI 

00  «3«  «1  ,  M  J 

DroX{t».n»ATAN<Y(I»J >/<X< J,J)+S"ALL> ) 
frtsp(i4i,j4i)«cfts(OYox<r#j)> 

8*8  STN»(I*1,J*1 )«STM(0Y0X(I,J)> 

00  *89  1*2, NIP1 
C0SP(I,1 )«COsP(I,?> 

8*9  STN0(T,1 )*STNP(T,?) 

0O  *99  j*?,NjP1 
C0SP(1/.l)«C0sP(Ni,J) 

899  SIMP {1 ,J )*SINP (NI ,J ) 

cos*(i ,i >»cospcni/1  ) 

S  T  M  P  (  1 #1 )«S1NP(NI,1 ) 

N.laN.141 

IJTM«9T-1 

N.|N»9J-1 

KITPPIaNT-? 

N,IH41«NJ-7 
DO  4^8  T  »?  ,N  I 
00  4  7*  .1  =  1, A' J 

XMd,J)*.5*<XX(T,-f)+XvO”1,J>) 

478  YW(T#J)«.5*(YY(I,J)4VY(T-1,J)) 

00  480  1*1, HI 

on  480  J=2,*'J 

XF(T#J)*.5*<XX(I,J)4XX(T,J»1)) 

4*n  YE(T,J)*-5*fYY(T#J)*Y''(l,. 1-1)1 
DO  481  1*1 , HI 
X  f ( T , 1 )*XX(I,1  ) 

Yt (T,1 )*YY  (1,1  ) 

4*1  cnhlTplHl? 

0"  48?  T*1,NI 
0"  48?  ,t  *  ?  ,  w  j 

Xr(T,,l)*.5*<XN<I»J>'*X'J(I,.l-1  )) 
yr  (T,J  )*.5*fVK(J,J  >*V»'(T,J-1  )  ) 

4*?  COMTlflHF 

on  483  I»1,PI 
xr (T ,1 )*xn  <  1 ,1 ) 

4*3  vr ( T ,1 )*YN  (!  ,1  ) 

W"ITF  (8*)  M?,NJ,NIM,MI*,N!MM  ,|i.IMP1  , 

1  (fXX(I,.l),J*1  ,N.I  )  ,1*1  ,MT  ),{  (YY{T,J  ),J*1  ,NJ  )  ,1*1  ,KT  ) 

?  dXC<T,.l),J*1.9.l),I*1,NI>,<(Yr(T,j),j«1,N.i),i,1,9T) 

3  ((XF(T,J),J*1  ,M.I  ),I  =  1,i«T),((yF(t,J),J*1,NI),T*1,HT) 

4  ((XN(I,J>,J«1,N.l>,I«1,WT),<(YN{T,J),J*1,NJ>,J«1,NM 

8  ((rOST(!,.l),J*1,MJ)»T*1,wI)*dS1NT(7,J),J*1,N.I),I*1,HT), 


10 


6  <<CnSApT(7,J>,jBl,N.|>«I>1»N!),<<STNAPT(l,j),j*1'NJ)#I>1,N1) 

A  <<STN#<T»J)*J»1»NJ),T«1,MI) 

RFW7NO  ft* 

NtaNT-1 

NJaNJ-1 

on  303  1  *1  »N  I 
on  303  J»1 

OVDX(7»J>baTAN<Y<T»J)/<X<7#J>*S*AU.> ) 

303  CONTINUE 
u<MTFf6/<,03) 

403  FORrAT<??H  I  NCI  I  ilAT  7  OP  0  f  RADIOS) 

00  304  .IJ8l,NJ 
.laN.l-J.l4l 

304  UP ITF (6 r 402 )  <DV0*<7».I)#Ib1,nT> 
on  53?  JJ«1,NJP1 

.IbNJPI-J  J  +  1 

532  UPfTF (6*4021  (ANfil (7/j),iBi,Njpi) 

W"TTE(6,?05> 
on  731  j jbi ,NJP1 
JaNJPI-J J41 

731  .IBITf  (4,40?)  tBB(T,J),I»1,NIP1) 

4n?  F0RPAT(/»(inE1C.4)) 

C*************** 

r  forpats  * 

r *************** 

?ni  fOPPAT(//#14H  X  COOPOTNATFS#/) 

?r?  FOFBAT  {/  /  *  1  4H  y  C00*0  T  IJ  ATF  s  »  /  1 
?n3  rnRB»T(/^ ,1?H  oxc  IFN«|HS#/#) 

7n4  FOffPAT(//#1?H  ovc  LENGTHS,/,) 

70S  FnRB»T(//.i3H  incAl  RADIUS,/,) 

115  F0RPAT(I5»5X,(1Pe10.4)) 

11*  FORPAT(5X»(10F10,4)  ) 

704  F0RMAT(/,6h  OXIDF) 

70«  F0R"AT(/,7h  OFTAOF) 

7n 7  FnpBAT(/,75,(i0F1O.4)1 
STOP 
FND 
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Derivation  of  the  equations  of  flow 
in  a  straight  spirally  fluted  tube 


2. 1  Introduction 

The  present  appendix  is  largely  drawn  from  the  report  of  I.Demirdzic 
[ 109 ]  on  the  derivation  of  equations  for  flow  through  the  spirally  fluted 
tube.  This  had  been  prepared  at  the  start  of  the  project.  Changes,  however 
have  been  introduced  in  the  nomenclature  used,  for  maintaining  uniformity 
with  the  remainder  of  the  thesis. 

The  objective  was  to  derive  the  equations  of  motion  in  a  form  which 
includes  a  co-ordinate  system  suitable  for  describing  the  complex  shape  of 
the  tube  cross  section  and  which  allows  the  condition  of  fully-developed 
flow  to  be  expressed  in  a  computationally  convenient  way. 


2.2  Geometry 

2.2.1  Characterization 

A  circular  helix  (spiral)  is  described  by  the  following  equation  in  a 
Cartesian  co-ordinate  system: 

r  ■  r  cos  0i  +  r  sin  9j^  ♦  b  0  £  (A2.1) 

or  in  cylindrical  co-ordinates: 


r«re+b9k 


(A2.2) 


(see  Figure  1),  where  Che  following  relationships  hold  between  Cartesian 
(i»T»k)  and  cylindrical  (e  .  en,k)  base  vectors: 

er  ■  cos  0i  +  sin©*, 

3e 

r  sin  0  T  +  r  cos  0  j  ■  r  — — 

30  (A2.3) 


From  (A2.1)  and  (A2.2)  follows 


dr 

3T 


-  r  sin  0:  +  r  cos  0  ^  +  bit  «  e^  +  b  k. 


(A2.4) 


d  i  "t  *► 

— —  -  -r  cos  0i  -  rsin0  j  -  -  re 
d02  r 


(A2.5) 


The  differential  arc  length  of  the  spiral  is 

-  ds  - / dx2  +  dy2  +  dz2  ■  /r2  +  b2  d0.  (A2.6) 


It  follows  chat  the  unit  tangent  and  normal  vectors  to  the  spiral  are 


dr  d0 
d@  ds 


1 

/r2  ♦  b2 


+ 


bk), 


1  dm  1  dm  db 
<  ds  "  “  d0  ds 


(A2.7) 


where 


(A2.8) 


is  the  curvature  of  the  spiral 


E.1 
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2.2.2  Co-ordinate  System 

A  suitable  co-ordinate  system  for  the  complex  duct  configuration 
illustrated  in  Figure  t  is  defined  as  follows.  A  general  orthogonal 
curvilinear  system  -  xn  is  defined  in  the  cross-sectional  plane  xOy, 
with  the  third  co-ordinate  X**  aligned  (naturally)  with  the  tangent  to  the 
spiral,  as  illustrated  in  Figure  2.  The  vectors 


r-a&t  ♦  <t-5,n,c) 

c  3xC  3xc  3x 


(A2.9) 


are  tangent  to  the  co-ordinate  lines  x  and  form  the  natural  bases  of  the 
co-ordinate  system  employed. 


The  vectors 


-*t  .  3xC+  3xtv  3xCf 

e  1x1<'lyJ*3«k  Ct  '  5,n,t> 


(A2.10) 


are  orthogonal  to  the  co-ordinate  surfaces  x  -  const  and  reciprocal 
Ce^V  -6j>  to  the  vectors  e 


The  elementary  control  volume  defined  by  this  co-ordinate  system  is 
presented  in  Figure  3.  Its  elemental  volume  is  given  by 


dV  -  d£  dr|  d£  sinCp-  d£  dri  dz 


(A2.ll) 


2.2.3  Metric  of  the  Co-ordinate  System 


The  metric  of  the  co-ordinate  system  is  defined  by  the  covariant 
and  contravariant  metric  tensor  component 


■*  -►  ts  ■+ 1  s 

•  ••  •« 


V  V  V  V  v  V  V  V  V  /  V  V  /  V  *  •  V  V  •  ’ 


f 


(A2.I2) 
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where 


-  h2  - 

'a*  ' 

2 

+ 

2 

+ 

i£ ' 

z 

.  3x^ 

V. 

.3*C 

8Sn  "  8ns  "  0  ’ 


g  »  h2 

*rvn  n 


3x 

2 

fail 

2 

4- 

3z 

M 

[axnJ 

,a*n. 

.2  3x5  2  Bx1"1 

hz  “  8u  ■  hC  5F  ’  hr\  *  *nc  “  hn  30  ’ 


•K-6-± 


«^n  -  gnC  -  h 


fax5] 

2 

1 

nn  i  i 

'3xn] 

36 

1  *  8 

*  rr  +  rr 
ft  D 

36 

n 

f^l 

f3xnl 

36 

36 

*  8  ■  b2 

ga  -  gu 


4s' 

36 


W  -  e1*  -  -4, 


*  g  ■  g 


3x 

36 


(A2.13) 


Since  Che  base  vectors  et  are  not  in  general  constant  vectors,  their 
derivatives 


(A2.14) 


„  %  *  t  "  •  '  •  •  •  *  »  *  .  *  •  * 
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are  expressed  in  terms  of  Christoffel  symbols  defined  as  follows: 


{.'*}- 7' 


tm 


!fkm 

3g 

7^ 

3x8 

3x 

sk 

m 


(A2.15) 


that  characterize  certain  geometrical  properties  of  the  curvilinear 
co-ordinate  system.  (Note  that  the  Einstein  summation  convention  is  used 
henceforth.  That  is  matching  upper  and  lower  indices  are  to  be  summed). 


2.2.4  Normalized  Basis 


If  physical  vector  and  tensor  components  are  to  be  employed,  the 

normalized  base  vectors  and  their  reciprocal  vectors  should  be  introduced: 
-► 

-*•  et  ♦(t)  .  -*t  ,  . 

e,„.  »  r—  ;  e  *  h„e  (no  summation) 

“t  C  (A2.16) 


One  can  see  that  e^  are  non-dimensional  unit  vectors  tangent  to  the 
co-ordinate  lines  t,  while  e^  are  also  non-dimensional,  but  are  not  unit 
vectors.  The  two  sets  are  related  to  each  other  by 


e(n) 

:«) 


*(n>  “  V 


> 


V  -►  ■¥ 

b  e(0  "KCeCO 


-  < 


ne(n) 


(A2.17) 


where 


h^  3x5  3£ 

"  b  3e  *  bie  • 

h^  3xn  3n 

Kn  *  d  36  bie  ’ 

K  ■  0  (included  for  generality,  see  Section  4) 


(A 2. 18) 


Vectors  and  tensors  in  the  curvilinear  frame  can  now  be  expressed  in 


terms  of  their  components  relative  to  the  base  vectors  e^.  For  example: 


-*■  (£)-► 
a  •  a  e 


(t)  » 

A  -  A  St)  ®  e(s)  , 


(A2.19) 


where  a^  and  A^ts^  are  physical  vector  and  tensor  components  respectively 


The  operator  9  stands  for  the  tensor  product. 


The  metric  can  also  be  defined  in  terms  of  the  physical  metric  tensor 
components 


8 


(ts)  “  *<t),e(s) 


(A2.20) 


and 


(ts)  ♦(t)  j(s) 
g  ■  e  .  e 


where  g^^represent  the  cosines  of  the  angles  between  vectors  e^j  and 


( s) t  i.e. 


*(C.)  • 


(A2.21) 


and 


g^  ^  *  1  +  IC^C^ 


g<5n)  .  gW  mK^^. 


g^nn )  m  (  +  K  K 

n  n  ’ 


m  .<55  > .  A 


b  "5 


Cnc)  _  g(cn) 


<«> .  s 

L  2 


(A2.22) 


Relationships  equivalent  to  the  Christoffel  symbols  can  now  be 
defined  from  the  physical  components  thus: 


3e(t)  „  *f(t) 


’(m)  • 


(A2.23) 


where 


. .]  •  i.lt,  ,1  U 


(summation  on  n  only) 


(A2.24) 


are  the  physical  Christoffel  symbols.  Note  that  (generally) 


(A2.25) 


Since  the  xs-x  co-ordinate  surface  is  planar,  and  bearing  in  mind  that 
the  derivative  of  the  unit  vector  e^  -  m  is  parallel  to  this  plane  (see 
equation  (A2.7)),  the  following  physical  Christoffel  symbols  turn  out  to  be 
equal  to  zero: 


5  CJ  u  cj  U  CJ  U  nj  In  Sj  In  nj  U  5 


$  In  cj  In  sj  in  SJ  In  nj  U  d  U  n 


(A2.26) 


The  values  of  non-zero  physical  Christoffel  symbols  are: 


_  "  h  •  "  “An  ' 

In  In  nj 


n  n 

■  x  *  -Xj.  * 

U  nj  n  Ic  cJ  5 


-  •  -  “Rn  • 

U  d  U  ?J 


(A2.27') 


c] .  M  A!a  .  A!l.  .  n 

.n  d  U  nj  b  kf  b  <  U  C, 


M.M  .A1 

X  d  U  d  b  .cn  b  KX 


(A2.27") 


where 


I  3h_ 

X  - - * 

*  h-  3n 


1  3h 

X  •  —  — -2- 

"  hn  35 


X  rz+bz  35  » 


(A2.28) 


Vector  and  Tensor  Components 


2.3.1  Choice  of  the  Components 


Perhaps  the  most  obvious  practice  would  be  to  use  physical  vector  and 
tensor  components  defined  with  respect  to  the  xC  co-ordinate  system,  i.e. 
in  terms  of  the  normalized  base  vectors  e,^N. 


In  this  case  the  velocity  vector  would  have  the  components 


(A2.29) 


and  stress  tensor  would  be 


?  -  T<CS)«(t)  ®  «(,)  * 


(A2.30) 


where 


T<ts)  -  -pg(t,)  +T(t#) 


(A2.31) 


where  p  is  the  pressure  and 


_(ts)  •  i,  f>»>V  u<‘>  +  U(S)1 

T  *  W  L8  7(m)u  +  8  V(m)u  J  (A2.32) 

Here  V/  is  the  covariant  derivative  of  the  physical  vector  components, 

V  3  / 


defined  by 


(A2.33) 


It  has  been  found,  however,  that  the  resulting  expressions  for  the 
stress  tensor  components  are  very  complicated  and  time-consuming  to  evaluate 


Therefore  an  alternative  practice  is  recommended  whereby  the  base  vector 
ia  replaced  by  Che  conatant  vector  k,  parallel  to  Che  Cube  axis. 
This  leads  Co  Che  zC  co-ordinace  sysCem  wich  Che  following  orChonormal 
basis  (see  Figure  4): 

-*■  -^(5)  -*■ 

e(V  “  e  “  e(0  ’ 

-*-(n)  ■* 

e(n)  *  e  "  8(n)  ’ 

e(z)  *  e<  >  "  bie(?)  “  k5*(5)  "  VCn)  "  k  (A2 . 34 ) 


The  corresponding  metric  Censor  components  are 


1  0  0 

0  l  0 

.0  0  I 


(A2.35) 


It  is  obvious  that  the  only  non-zero  Christoffel  symbols  in  the  zC 
co-ordinate  system  are  *  [^j  •  (^rj  8^°  bY  equations  (A2.27) 

The  velocity  vector  is  now: 

t  (t)-*-  (5)-*>  (n)-*>  (z)-*- 

5  -  w  e(t)  -  w  e(?)  ♦  w  e(n)  ♦  *  e(2)  » 


"c<5>  *  VE(n)  *  “k 


(A2.36) 


where  components  w^  can  be  related  to  Che  componencs  as  follows: 


-  U  -  kt^W  -  W(^  - 
u(n)  -  V  -  c  W  -  w(n)  -  ic 

n  n 


(A2.37) 


The  stress  Censor  now  has  the  components 


t?  _  T(ts)-+  ,0.+ 

T-T  e(t)  ^  e(s) 


(A2.38) 


where 


T(ts)  .  -py(C3)  ♦  T<tS) 


(A2.39) 


and 


<»>  .  u  [/-**«.<«  ♦  /"V,.'”] 


(A2.40) 


where 


v,  -  22^  *  »<,) 

<•>  sT71 


r  t  ' 

m  s 


(A2.41) 


Consequently  the  stress  tensor  components  in  the  zC  co-ordinate  system 


are: 
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Since  the  control  volume  continues  to  be  defined  in  terms  of  the 
original  xC  co-ordinate  system  (see  Figure  3),  in  the  new  frame  the  convection 
terms  in  the  fluid  transport  equations  become  more  complicated  (due  to  the 
fluxes  of  pH  through  the  x^-x^  and  x^-x^  co-ordinate  surfaces),  but  this  is 
more  than  compensated  by  the  appearance  of  much  simpler  diffusion  terms  in 
the  momentum  equations  and  a  simple  expression  for  the  generation  of 
turbulent  kinetic  energy.  However,  there  is  a  furhter  stage  of  manipulation 
required  which  is  connected  with  the  present  choice  of  control  volume.  All 
derivations  have  to  be  expressed  in  terms  of  xC  and  this  requires  that 
relations  be  derived  between  derivations  in  the  zC  and  xC  co-ordinate 
systems.  These  relations  can  be  obtained  by  a  co-ordinate  transformation 
as  outlined  below. 


2.3.2  Co-ordinate  Transformation 

The  orthogonal  curvilinear  co-ordinates  z’  and  z1"1  can  be  expressed 
as  functions  of  r  and  8  thus: 

-  f^r,  0) 

*n  -  f  (r,  0) 

2 

z*  -  z  .  (A2 .43) 

If  one  introduces  the  transformation 
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Chis  has  Cha  effect  of  rotating  the  shaded  area  in  the  position  vertically 
above  the  same  area  in  the  z  ■  0  plane  (Figure  5)  and  one  gets: 

x5  -  f^r',8') 

xn  -  f  (r*,  0') 

2  (A2.45) 

X^  »  ^Z1  .  (Equ.(A2.  l)^zZ»z«bA0=?A0»^- 

Equ.(A2.6)a$  h^x^*h^A0*h^  ) 


Therefore  it  follows  that: 
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The  first  two  of  these  relations  are  obvious  since  the  rotation  does  not 
change  derivatives.  The  third  relation  follows  from: 
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2.4  Transport  Equations 


The  transport  aquations  for  mass,  scalar  and  momentum 
written  in  the  form: 
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where  the  following  differential  operator  is  introduced  (g 
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(A2.50) 

can  now  be 


(A2.5J) 

det(gts)) 

(A2.52) 


If,  as  proposed,  Che  vector  and  censor  components  are  defined  with 


respect  to  the  z  co-ordinate  system,  then  the  velocity  U,  flux  vector  q 
and  stress  tensor  ?  have  Che  following  forms: 
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and  therefore 
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where  the  vector 


has  been  introduced  for  generality. 


(A2.55) 


The  transport  equations  can  now  be  written  in  terms  of  the  quantities 


just  defined  as 
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The  expanded  form  of  the  tquation  (A2.56)  is 
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The  expanded  form  of  Che  equation  (A2.57)  is 
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If  one  introduces  the  following  notation: 
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the  momentum  equation  (A2.58)  takes  the  form: 
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If  the  expression  (A2.23)  is  used,  the  above  equation  can  also  be  written 
in  the  form: 
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where  Che  term  in  <  >  brackets  is  equal  to  zero  for  m  ■  z ,  since 

■  0  and  ■  ic  ■  const,  where,  from  (A2.61), 
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where  o  *(<,<,+<.  K.  +1)  R  /K.  . 

sc  n  n  ^5 


Finally,  one  can  extract  the  equations  for  the  individual  momentum 
components  as  follows: 
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Generation  of  Turbulent  Kinetic  Eners 


If  (k-e)  turbulence  model  is  used  the  generation  of  turbulent 
kinetic  energy  should  be  calculated.  It  is  defined  (in  terms  of 
w(t))  as 


_  (sm)  _  (t) 

6  Y(tm)Tt  V(s)W 


(A2.69) 


Since  in  zc  co-ordinate  system  (orthogonal  one) 
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APPENDIX  3 

Pressure-Implicit  Split  Operator  (PISO) 


3. 1  Description  of  PISO 

The  so-called  PISO  algorithm  (described  by  Issa  [79]  and  Gosman, 

Issa  and  Watkins  [  80] )  is  a  scheme  which  applies  repetitively  a  predictor- 
corrector  procedure  to  the  discretized  momentum  and  continuity  equations  in 
order  to  calculate  the  pressure  correction  by  assuming  that  the  velocity 
corrections  depend  not  only  on  the  pressure  corrections  but  also  on  the 
velocity  corrections  at  neighbouring  nodes. 

The  predictor-corrector  procedure  can  be  described  by  using  a  general 
representation  of  the  discretized  momentum  equations 

Up  -  H-(U^  ♦  G.p  (A3. 1) 

where:  U  denotes  the  velocity  vector  at  a  node  P  or  its  neighbours,  1H  > 

is  a  linear  operator  applied  to  velocity-dependent  terms,  and  G  a  linear 

...  .  .  * 

operator  giving  the  pressure  gradient.  Using  the  pressure  field  p 

calculated  at  the  previous  iteration  of  the  computational  procedure  one  can 
solve  equation  (A3.1)  in  order  to  find  the  velocity  field  U* 

uj  -  H«U*>  +  Gp*  (A3. 2) 

Then,  corrections  U*  and  pj  are  applied  to  the  velocity  and  pressure  fields 
such  that 


U 


* 

u  +  u' 
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Spalding  SIMPLE  algorithm  [81] .  Although  it  is  possible  to  continue  the 
corrections  of  velocity  and  pressure  fields  further,  the  analysis  of  Issa 
[79]  showed  that  no  additional  improvement  would  be  gained.  One  can  notice 
that  equations  (A3. 6)  and  (A3. 10)  differ  only  in  their  right-hand  sides 
which  can  be  translated  to  a  minimization  of  the  additional  work  needed  for 
calculating  the  second  stage  of  the  above  procedure. 

The  application  of  the  above  procedure  in  the  equations  describing 
the  flow  through  the  spirally  fluted  tube  is  given  in  the  following  section 


3.2  Derivation  of  the  'Full*  Pressure  Correction  Equation  for  PISO 
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Momentum  Equations 
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Perturbation  analysis  on  the  set  of  equations  (A3. 12)  gives: 
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where  pD  -  p„  -  p» 
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(A3. 13)  and  (A3. 14)  give: 
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Substituting  (A3. 15)  in  (A3. 11)  we  get  the  full  pressure-correction 
equation: 
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Equation  (A3. 16)  gives: 
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Subtracting  the  old  "predictive"  pressure-correction  equation  from  (A3. 17) 
we  get  the  final  "correcting"  pressure-correction  equation: 
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while  the  old  "predictive"  pressure-correction  equation  has  the  form: 
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Equations  (A3. 19)  and  (A3. 18)  represent  equations  (A3. 6)  and  (A3. 10) 
respectively. 
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i  i  t 


where  p  *  +  P2  an<*  ““s  the  coefficient  for  velocity#  (U,  V,  W) 

m 

at  node  £(E,  W,  N,  S,D,U,  P)  surrounding  node  m  (e  or  w  for  U,  n  or  s 


APPENDIX  4 


Derivation  of  Che  Equations  for  c  and  Pr„ 
- 2 ^ - 1 

for  Che  ASM  Turbulence  Model 


including  Density  Fluctuation  Effects 


As  has  been  shown  in  Section  4.1.4  of  Chapter  4,  the  Reynolds  stresses 
and  heat  fluxes  (when  an  algebraic  stress  model  including  density 
fluctuation  effects  is  used)  are  calculated  from  equations  (4.  ll)  and 
(4.13  )  presented  also  below: 
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The  production  of  turbulence  energy  (P  ) ,  the  production  of  u^u. 

*  _ ,  * 

(Pfj  )  and  the  production  of  u.0'  (P^g)  (with  buoyant  effects  taken  into 
account)  for  the  flow  through  a  spirally  fluted  tube  but  only  for  the  part 
of  the  solution  domain  where  the  fluid  is  in  solid  body  rotation  and  a  polar 


while  equacion  (A4.2)  gives: 
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So,  from  the  last  of  equations  (A4.5)  after  substituting  Prz  and  w0'  we 
can  have: 
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Substituting  the  equation  of  PzQ, then  the  equation  of  v6'  into  (A4.7)  and 

k  m  #  # 

finally  the  equation  of  into  the  resultant  equation  (taking  into  account 
from  reference  [69]  that  9' 2  ■  -cT'  —  v9'  |“  )  we  get: 
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Substituting  into  (A4.8)  the  expression  for  u6'  after  some  calculations 
in  order  to  express  u9'  in  terms  of  we  get: 
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where 
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From  equation  (A4.10)  one  can  yield: 
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(A4.12) 


(A4.13) 


Analogous  procedure  has  been  followed  in  order  to  calculate  the  turbulent 
Prandtl  number. 


From  the  equation  of  v9'  after  substituting  the  expression  of  ?r9 


we  get: 


-V9'  (1  -  yej'A)  -  -  y  |£ue' 


(A4.14) 


Substituting  the  expression  of  u9'  (function  of  v9')  into  (A4.14)  the 
following  equation  is  formed: 
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APPENDIX  5 

The  Computer  Program  for  Solving  the  Dynamic 
and  Temperature  Fields  in  a  Spirally  Fluted  Tube 


Introductory  Remarks 

In  this  appendix,  the  computer  code  for  calculting  the  dynamic  and 
temperature  fields  in  a  spirally  fluted  tube  is  presented.  The  program 
has  been  developed  from  the  original  curvilinear  TEACH  code  written  at 
Imperial  College  by  Antonoupoulos ,  Gosman  and  Issa  [86]  devised  for  the 
solution  of  steady  two-dimensional  turbulent  (or  laminar)  elliptic  flows. 
The  programming  language  is  FORTRAN  IV.  The  present  appendix  is  divided 
into  two  main  sections.  The  first  section  presents  the  flow  chart  with  a 
description  of  the  most  important  sub-routines,  while  in  the  second  one 
the  listing  of  the  computer  code  with  a  glossary  of  FORTRAN  symbols  are 
given. 


5.1  User's  Guide 

The  computer  program  includes  the  main  routine,  CONTRO,  and  13  sub¬ 
routines  (IN IT,  RADCUR,  PROPS,  CALCU,  CALCV,  CALCW,  CALCP,  CALCT,  CALCTE, 
CALCED,  LISOLV,  PROMOD,  PRINT).  The  complete  flow  chart  of  the  program  is 
given  below,  while  a  broad  description  of  the  computer  procedure,  based  on 
the  flow  chart,  is  discussed  prior  to  outlining  the  structure  of  the  most 
important  of  the  sub-routines.  Moreover,  in  the  present  section,  several 
special  features  introduced  into  the  computer  code  for  handling  this 
particular  flow  are  discussed,  such  as:  the  use  of  cubic  splines  for  inter¬ 
polating  viscosity  near  the  walls,  use  of  the  parabolic  sublayer  treatment 


(FSL),  addition  of  extra  nodes  for  calculating  the  temperature  field,  etc. 

5.1.1  General  Structure 

As  its  name  suggests,  CONTRO  is  the  main  routine  responsible  for 
the  overall  control  of  the  program' s  work-flow  by  calling  sequentially  the 
rest  of  the  sub-routines.  Initially,  in  CONTRO  turbulence  constants, 
fluid  properties,  control  parameters  for  termination  tests  and  monitoring 
(i.e.  SORMAX,  MAXIT,  IMON,  JMON)  are  initialized  after  the  main  geometric 
quantities,  such  as  control  volume  dimensions,  solution  domain  characteris 
tics  (i.e.  R&,  h,  R^,  n,  <t>)  are  read  in  as  data. 

The  first  sub-routine  called  by  CONTRO  is  INIT  where  the  geometric 
interpolation  coefficients  are  calculated  while  all  dependent  variables 
and  other  important  arrays  are  set  to  zero. 

Next,  sub-routine  RADCUR  is  called.  In  this,  quantities  related  to 
the  co-ordinates'  curvature  are  calculated  while  a  special  treatment  for 
the  boundaries  is  introduced  by  calling  section  MODRAD  of  sub-routine 
PROMOD.  PROMOD  is  the  sub-routine  which  introduces  the  appropriate  mod¬ 
ifications  for  handling  the  boundaries  by  means  of  individual  sections, 
playing  the  role  of  independent  sub-routines,  with  entry  points  defined  as 
MOD-  (implying  MODifications)  followed  by  some  symbol  declaring  their  use 
(for  example, -RAD  for  the  boundary  modifications  for  the  radii,  -U  for  the 
U-momentum  equation,  etc). 

Next,  the  initial  dynamic  and  temperature  fields  are  set  which  can 
also  be  the  results  from  a  previous  run  if  the  integer  named  JOB  has  a 


value  different  from  one. 

Called  next  is  sub-routine  PROFS.  Here,  the  viscosity  is  cal¬ 
culated  for  the  whole  solution  domain.  Depending  on  whether  the  laminar 
or  the  turbulent  regime  is  solved  the  viscosity  is  set  either  to  a  constant 
value  or  it  is  calculated  from  the  appropriate  equations  for  each  turbulence 
model  used.  In  the  case  of  turbulent  flows,  special  attention  is  given  to 
the  near-wall  region  since  even  the  finest  grids  adopted  are  not  fine 
enough  for  interpolating  the  viscosity  in  this  region  if  the  same  treatment 
used  for  the  rest  of  the  solution  domain,is  applied.  Thus,  a  cubic  spline 
interpolation  is  used  for  a  number  of  cell-rows  attached  to  the  wall.  This 
is  necessary  because  of  the  very  non-linear  variation  of  effective  viscosity 
in  the  wall-adjacent  sublayer. 

CONTRO  then  calls  PRINT  which  gives  an  output  of  the  initial  dynamic 
field,  while  at  that  point  both  the  marching  and  the  iteration  loops  begin. 
Parameter  NITER  gives  how  many  times  the  iterative  procedure  has  been 
performed  (which  may  not  exceed  the  pre-set  value  of  MAXIT) .  During  the 
marching  procedure,  CONTRO  calls,  in  a  fixed  sequence,  CALCU,  CALCV,  CALCU, 
CAL  CP.  However,  because  the  parabolic  sublayer  treatment  has  been  adopted, 
a  parameter  JTS  is  defined  which  gives  the  number  of  cell-rows  attached  to 
the  wall  where  neither  CALCV  nor  CALC?  is  called.  Instead,  the  V-velocity 
is  calculated  from  continuity  applied  to  the  scalar  cells  while  the 
variation  of  static  pressure  is  neglected.  Sub-routines  CALCU  and  CALCW 
are  solved  over  the  whole  solution  domain  while  CALC?  is  called  twice  since 
the  PISO  algorithm  (see  Appendix  3)  has  been  adopted.  A  detailed  description 
of  sub-routines  CALC#  (#  ■  U,  V,  W,  k,  e,  T)  and  CALCP  can  be  found  in  the 


following  section.  Just  before  and  after  the  pressure-correction 
equation  is  solved,  CONTRO  calls  MODVEL  which,  being  one  of  the  PROMOD 
sections,  updates  the  boundary  velocities. 

Depending  on  whether  both  the  turbulence  models  (mixing- length 
hypothesis  plus  lo-e  Boussinesq  viscosity  model)  are  used  in  different 
parts  of  the  solution  domain  (IBOTH  -  1)  or  just  one  of  these  is  adopted 
(IBOTH  j4  1) ,  CONTRO  sets  or  not  the  boundary  conditions  for  the  turbulence 
energy  k  and  its  dissipation  e  at  J  ■  JG  (the  matching  interface  between 
the  two  models) .  The  value  of  JG  has  been  fixed  at  the  beginning  of  CONTRO. 

Depending  on  whether  the  simplified  algebraic-stress  model,  including 
density  fluctuation  ("buoyancy”)  effects,  is  used  (NASM  ■  1)  or  not 
(NASM  *  0),  sub-routine  CALCT  is  either  called  or  bypassed. 

Depending  on  whether  the  k-e  Boussinesq  viscosity  model  is  used 
(IBOTH  +  0)  or  not  (IBOTH  *  0) ,  sub-routines  CALCTE  and  CALCED  for  the 
solution  of  the  discretized  equations  for  k  and  e  are  either  called  or 
ignored. 

Next,  CONTRO  calls  sub-routine  PROPS  where,  as  has  been  described 
above,  the  calculation  of  viscosity  takes  place,  while  an  intermediate 
output  is  issued,  via  sub-routine  PRINT,  which  includes  the  sunned 
residuals  calculated  in  sub-routines  CALC$,  the  computed  variables  at  some 
position  defined  by  the  I  and  J  values  (IMON,  JMON)  as  well  as  the  velocity, 
pressure  (and  k,  e,  9)  fields  if  the  number  of  iterations  performed  is 
an  exact  multiple  of  INDPRI. 
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At  chat  point,  termination  casts  for  the  iteration  procedure  start. 
If  the  number  of  iterations  are  greater  than  MAXIT  or  the  maxi  mum  of  the 
residual  sums  calculated  in  CALC*  and  CALCP  (SORCE  1)  is  lover  than  a 
control  value  SORMAX  (usually  assigned  the  value  10  ),  the  iteration 

procedure  stops.  If  the  simplified  ASM  including  density  fluctuation 
effects  is  applied  (NASM  ■  1),  the  parameter  S0RCE2  .(instead  of  SORCE  I) 
is  tested  against  SORMAX  with  the  only  difference  that  SORCE  2  includes 
also  the  residual  sum  of  the  temperature.  Otherwise,  the  dynamic  field  is 
solved  first  and  stored  prior  to  solving  the  temperature  equation.  In 
this  case,  the  whole  iterative  procedure  is  repeated  only  for  CALCT, 
terminated  when  the  residual  sum  calculated  in  CALCT  is  again  smaller  than 
SORMAX  or  the  number  of  iterations  exceed  MAX IT.  Moreover,  a  special 
treatment  is  adopted  for  the  near-wall  region  by  introducing  two  extra 
nodes  in  the  first  row  of  cells  attached  to  the  wall  since  it  is  very 
important  for  the  grid  to  be  highly  refined  in  this  region,  for  the 
calculation  of  the  temperature  field,  when  high  Prandtl  number  fluids  at 
high  Reynolds  numbers  are  used. 

As  soon  as  the  iteration  procedure  is  completed,  a  final  output  is 
issued  via  sub-routine  PRINT.  Thereafter,  important  flow  parameters,  such 
as  friction  factors,  local  Nusselt  numbers,  flow  rates,  etc,  are  calculated 
and  the  program  is  terminated. 

5.1.2  Details 

In  this  section  a  detailed  description  is  provided  of  the  most 
important  sub-routines,  all  of  which  have  been  subjected  to  significant 
changes  and  additions  although  their  names  have  been  kept  the  same  as  the 


corresponding  routines  in  the  original  TEACH  program. 

The  finite  difference  equations  (see  equation  (2.38))  for 
*  =  0,  V,  W,  9,  k,  e  are  solved  in  sub-routines  CALC*  called  by  CONTRO  in 
a  fixed  sequence  during  an  iterative  procedure  described  in  Section  5.1.1 
of  the  present  appendix.  The  general  structure  of  all  the  sub-routines 
CALC*  is  given  below. 


5.1.2a  CALC* 

All  these  sub-routines  may  be  divided  into  four  chapters  where  the 
following  operations  take  place: 

In  chapter  1  the  finite-difference  coefficients  and  source  terms 
are  calculated  using  equations  (2.39).  Within  double  DO-loops  (the  outer 
one  sweeping  the  solution  domain  in  the  ^-direction  and  the  inner  one  in 
the  n-direction)  the  convective  fluxes  are  calculated  first,  followed  by 
the  diffusion  terms  and  finally  by  the  source  terms.  In  the  first  chapter 
no  special  treatment  is  performed  for  the  cells  adjacent  to  the  boundaries. 

In  chapter  2( problem  modification)  PROMDD,  is  called  in  order  to 
modify  the  finite-difference  coefficients  for  the  inclusion  of  boundary 
conditions  or  special  source  terms.  It  includes  several  chapters,  one  for 
each  dependent  variable,  each  with  its  own  entry  point.  So,  every  sub¬ 
routine  CALC*  actually  calles  the  corresponding  chapter  MOD*  of  PROMOD 
in  order  to  incorporate  the  modifications. 

* 

In  chapter  3,  the  coefficients  Ap  and  residual  sources  RESOR*  are 


calculated  while  the  under-relaxation  treatment  is  introduced  which  modifies 


A  A 

the  above  coefficients  Ap  and  the  source  terns  SU  in  order  to  avoid 
instability  of  the  con^utational  procedure.  However,  use  of  improper 
under-relaxation  factors  can  cause  instability,  so  the  choice  of  the  best 
values  is  one  of  the  most  important  requirements  for  improving  convergence 
of  the  solution  procedure.  Details  about  this  treatment  can  be  found  in 
Section  2.5a  of  Chapter  2  as  well  as  in  Gosman  et  al  [ 9l]  . 

Finally,  in  chapter  4,  the  solution  of  the  finite-difference 
equations  is  performed  over  the  whole  solution  domain  (both  the  two- 
dimensional  and  one-dimensional  regions).  Sub-routine  LISOLV  is  called 
repeatedly  and  it  is  there  that  the  solution  actually  takes  place  following 
the  line-by-line  procedure  described  in  Section  2.5c  of  Chapter  2.  The 
integer  NSWP*  defines  how  many  times  sub-routine  LISOLV  will  be  called 
from  CALC*,  affecting  the  accuracy  of  the  solution  of  the  linearized 
equations  and  consequently  the  stability  of  the  solution  procedure.  Improper 
choice  of  NSWP*  can  cause  instability,  mainly  in  the  solution  of  the 
pressure-correction  equation  since  for  every  iteration  of  the  computation¬ 
al  procedure  the  starting  pressure  correction  (p')  field  is  zero. 

Sub-routine  CAL CP,  although  it  solves  an  equation  of  the  general 
form  given  by  (2.38),  presents  soma  special  features  which  are  reported 
below. 

5.1.2b  CAL CP 

Sub-routine  CALC?  is  called  twice  (see  algorithm  PISO  in  Appendix  3) 
during  an  iteration  of  the  procedure  described  in  Section  5.1.1  of  the 
present  appendix.  It  can  be  divided  into  five  chapters  facilitating  its 


understanding  while  its  function  is  the  solution  of  the  pressure-correction 
(p’)  field.  On  the  first  call,  the  parameter  INUMB  takes  the  value  zero 
while  on  the  second  call  it  takes  the  value  1  regulating  the  choice  of  the 
source  term.  Thus,  if  INUMB  -  0,  the  source  term  I  (see  equation  (2.45) 
of  Chapter  2)  is  chosen,  while  if  INUMB  ■  1,  the  source  term  II.  So,  two 
equations  of  the  general  form  given  by  equation  (2.38)  of  Chapter  2  are 
created,  solved  during  the  double  call  of  sub-routine  CALCP  by  CONTH0. 

P  P  P  P 

In  chapter  1,  the  coefficients  Ag  ,  Ay  ,  Ay  ,  Ag  (see  equation 
(2.46)  of  Chapter  2)  are  calculated  over  the  two-dimensional  region  of  the 
solution  domain.  Depending  on  the  value  of  INUMB,  the  appropriate  source 
term  (I  or  II  of  equation  (2.45)  is  calculated.  If  INUMB  is  zero,  the  mass 
residual  (BESOBM)  is  also  calculated. 

In  chapter  2,  sub-routine  PRQMOD  is  called  in  order  to  incorporate 
modifications  of  the  boundary  cells,  while  in  chapter  3  the  calculation  of 

.  p 

the  coefficient  Ap  takes  place.  The  solution  of  the  finite-difference 
equations  is  performed  in  chapter  4  by  calling  repeatedly  sub-routine 
LISOLV.  All  these  operations,  from  chapter  2  to  chapter  4,  are  independent 
of  the  value  of  INUMB. 

In  chapter  5,  the  calculation  of  the  pressure  correction,  with 
provision  for  under-relaxation,  is  performed,  while  if  INUMB  ■  0  (first  call 
of  CALCP)  the  calculation  of  velocity  corrections  (given  by  equations  (2.47) 
of  Chapter  2)  also  takes  place  ,  these  being  used  in  the  evaluation  of  term 
II  during  the  second  call  of  CALCP  (INUMB  -  1) . 


Chapter  5,  at  the  end  of  sub-routine  CALCP,  distinguishes  this 
particular  sub-routine  from  the  other  CALC®  sub-routines.  Moreover, 
another  interesting  characteristic  of  CALC?  is  the  fact  that  there  is  no 
need  for  a  calculation  of  the  residual  sources  for  the  p' -equation; 
instead  the  absolute  mass  sources  are  summed  and  stored  (RESORM) . 

5.1.2c  LISOLV 

All  the  additions  introduced  into  the  computer  code  in  order  to 
solve  the  one-dimensional  (core)  region  of  the  solution  domain  are 
included  in  sub-routine  LISOLV.  Sub-routine  LISOLV  is  called  by  sub¬ 
routines  CALC®  (*  =  u,  V,  tf,  k,  e,  8)  and  CALCP.  In  order  to  control  the 
choice  of  the  finite-difference  coefficients  for  the  solution  of  the  one- 
dimensional  region,  a  parameter  has  been  introduced  into  the  computer  code 
called  INDEX  whose  value  is  specific  to  a  particular  meaning  of  $  (INDEX  « 

1  for  CALCU,  2  for  CALCV,  3  for  CALCTE,  4  for  CALCED  and  5  for  CALCT). 

Only  the  solutions  of  the  V-velocity  and  p'  pressure  correction  do  not 
extend  up  to  the  tube-axis.  Thus,  if  the  variable  INDEX  takes  the  value  1 
then, all  the  coefficients  used  in  the  one-dimensional  region  are  related  to 
O-velocity,  i.e. 


(derived  in  Section  4.2.2b  of  Chapter  4).  Sub-routine  LISOLV  is 
divided  into  three  chapters. 

In  chapter  1,  all  the  modifications  needed  for  the  extension  of  the 
calculations  to  the  tube  axis  are  introduced.  Since  the  describing 
equations  in  this  region  are  solved  on  one  radial  line,  nodal  points  are 
located  in  the  one-dimensional  extension  of  the  solution  domain.  Also, 
the  under-relaxation  factors  (UEF1(N)  where  N  takes  the  values  1  for  U, 

2  for  W,  3  for  k,  4  for  e,  5  for  6  and  6  for  viscosity)  for  the  core 
region  are  initialized. 

In  chapter  2,  the  finite-difference  equations,  described  by 
equation  (4.51)  for  the  one-dimensional  region  and  by  equation  (2.38)  for 
the  two-dimensional  region,  are  solved  at  the  same  time,  using  the  line- 
by-line  iteration  procedure  (presented  in  2.5c  of  Chapter  2)  along  the  n- 
lines,  sweeping  in  5 “direction. 

In  chapter  3,  the  finite-difference  equations,  described  by  equation 
(2.38)  of  Chapter  2,  for  the  two-dimensional  region  only,  are  solved  using 
the  line-by-line  iteration  procedure  (modified  to  include  the  cyclic 
boundary  conditions,  also  described  in  Section  2.5c  of  Chapter  2)  along  the 
5-lines,  sweeping  in  n-direction.  Finally,  the  values  of  $  or  p'  calculated 
in  LISOLV  are  returned  to  CALC$  or  CALC?. 


5.1. 2d  PROPS 


Sub-routine  PROPS  is  called  by  CONTRO  for  calculating  the  turbulent 
viscosity  ut  as  veil  as  the  thermal  conductivity  r  for  the  whole  solution 
domain.  Sub-routine  PROPS  is  divided  into  five  chapters: 

In  chapter  1,  the  turbulent  viscosity  for  the  two-dimensional 
region  is  calculated:  (a)  for  the  near-wall  region  from  equation  (4.1)  if 
the  mixing-length  hypothesis  is  used;  (b)  for  the  rest  of  the  solution 
domain  from  equation  (4.3)  with  cy  calculated  either  from  equations  (4.15c) 
and  (4.18)  if  one  of  the  forms  of  the  simplified  algebraic-stress  model 
(described  in  Section  4.1.4  of  Chapter4)  is  applied  or  assigned  the  value 
0.09  if  the  k-e  Boussinesq  viscosity  is  used. 

Chapter  2  sets  the  values  of  the  turbulent  viscosity  at  the 
boundaries  of  the  2-D  region.  Also,  the  cubic  spline  interpolation  treat¬ 
ment  mentioned  in  the  general  description  of  the  computer  code  is  applied 
for  calculating  the  turbulent  viscosity  at  the  control  volume  faces  for  a 
number  of  cell  rows  adjacent  to  the  tube  wall. 

In  chapter  3,  the  calculation  of  thermal  conductivity  Tc  (-  ut/Prt) 
for  the  2-0  region  takes  place:  (a)  for  the  near-wall  region  from 
equation  (4.2)  if  the  mixing-length  hypothesis  is  applied;  (b)  for  the  rest 
of  the  solution  domain,  either  from  equation  (4.20)  if  the  simplified 
algebraic-stress  model,  including  density  fluctuation  effects,  is  used, 
or  from  equation  (4,8)  if  the  k-e  Boussinesq  viscosity  model  is  applied. 

Chapter  4  sets  the  boundary  values  of  the  thermal  conductivity  T 


for  the  2-0  region  of  the  solution  domain 


Finally,  in  chapter  5,  the  turbulent  viscosity  is  calculated  for 
the  1-0  region  of  the  solution  domain.  These  values  are  stored  and  used 
in  every  call  of  LISOLV  during  an  iteration  of  the  procedure  shown  in  the 
flow  chart. 


5.2.1  Glossary  of  FORTRAN  Symbols 


AH 

AN(I,J) 

AS(I.J) 

AE(I,J) 

AW(I,J) 

AU(I,J) 

AD(I,J) 

AP(I,J) 


AREAXY(I.J) 

AKC  1 ,  AKC2,  AKF , 
AKCT1 ,  AKCT2,  AKCTD, 
AKFT,  AKFTD 


Rib  height,  h 

Coefficient  of  combined  convective/diffusive  flux 

through  north-face  of  control  volume 

Coefficient  of  combined  convective/diffusive  flux 

through  south-face  of  control  volume 

Coefficient  of  combined  convective/diffusive  flux 

through  east-face  of  control  volume 

Coefficient  of  combined  convective /diffusive  flux 

through  west-face  of  control  volume 

Coefficient  of  combined  convective /diffusive  flux 

through  upstream-face  of  control  volume 

Coefficient  of  combined  convective /diffusive  flux 

through  downstream-face  of  control  volume 

Sum  of  coefficients  of  combined  convective /diffusive 

f luxe 8  through  the  faces  of  the  control  volume 

Area  of  control  volume 

Constants  of  simplified  ASH  model  with  density 
fluctuation  effects 
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ANUSS 

ANUSSE(I) 

CE(I) 

CD( I , J ) 

CD 

CM 

CS 

CW 

CCE(I) 

CCW 

CCD(I , J) 

CCU 

CCM 

CCS 

CMU 


Nusselt  number 
Local  Musaelt  number 

Coefficient  of  convective  flux  through  east- 
face  of  control  volume 

Coefficient  of  convective  flux  through  down- 
s treani- face  of  control  volume 

Coefficient  of  convective  flux  through  upstream- 
face  of  control  volume 

Coefficient  of  convective  flux  through  north- 
face  of  control  volume 

Coefficient  of  convective  flux  through  south- 
face  of  control  volume 

Coefficient  of  convective  flux  through  west-face 
of  control  volume 

Source  term  calculated  at  east-face  of  control 
volume 

Source  term  calculated  at  west-face  of  control 
volume 

Source  term  calculated  at  downstream-face  of 
control  volume 

Source  term  calculated  at  upstream-face  of 
control  volume 

Source  term  calculated  at  north  face  of  control 
volume 

Source  term  calculated  at  south  face  of  control 
volume 

Constant  of  turbulence  model  (*  0.09) 


COT 


Constant  of  turbulence  model  (■  1.0) 


C1M 

■ 

Constant  of  turbulence  model  (■  1.44) 

C2M 

■ 

Constant  of  turbulence  model  (■  1.92) 

CAPPA 

■ 

Von  Kerman  constant 

CPW 

m 

S 

CMDA(I.J)'’ 

m 

Variable  c^  in  the  two-dimensional  region 

CMDR(J) 

m 

Variable  c  in  the  one -dimensional  region 

U 

DU(I,J) 

m 

Coefficient  of  velocity-correction  term  for 

U-velocity 

DV(I, J) 

m 

Coefficient  of  velocity-correction  term  for 

V-velocity 

DW(I,J) 

m 

Coefficient  of  velocity-correction  term  for 

W-velocity 

DEN(I,J) 

m 

Density,  p 

DXC(I.J) 

m 

Length  of  north  or  south  face  of  the  control 

volume 

DYC(I.J) 

m 

Length  of  west  or  east  face  of  the  control 

volume 

DENSIT 

m 

Density,  p 

DPDZ 

M 

dp/dz 

DXIDF(I,J) 

m 

35/3© 

DETADF(I,J) 

M 

3H/30 

DRDXI(I, J) 

m 

3r/35 

DRDETA(I,J) 

m 

3r/3n 

1  3h- 

DXDY<I,J) 

m 

co-ordinate  curvature  ■  —  — 

h^  3n 

l  3hn 

DYDX( I ,  J ) 

co-ordinate  curvature  -  — 

hn  sc 

DIE 


coefficient  of  diffu*iv«  flu*  through  cast-face 
of  control  volume 


DIM 


Coefficient  of  diffusive  flux  through  north-face 
of  control  volume 


ED(I,J) 

ELOG 

FlD(J*t 1) 

F1D(J*,2) 

F|D(J*,3) 

F1D(J*,4) 

F1D(J*,5) 

FLOWTOT 

FI AXIS 

GREAT 

GEMM(l.J) 

HYDDIA 

HEDU 

HEDV 

HEDW 

HEDP 

HEDT 

HEDK 

HEDD 

HEDMU 

I 

IT 

INDEX 


-  Energy  dissipation  rate,  e 

*  Constant  of  P-function  for  heat  transfer  at  vails 

-  U 

-  W 

-  k 

•  c 

.  e 

■  Total  mass-flov  rate  through  tube 

-  Spiral  angle,  $ 

30 

-  A  very  large  value  (10  ) 

-  Generation  of  turbulence  energy  k 

-  Hydraulic  diameter,  Dh 

-  Heading  "0-velocity" 

■  Heading  "V-velocity" 

-  Heading  "W-velocity" 

■  Heading  "P-pressure" 

■  Heading  "T-temperature" 

■  Heading  "k-energy" 

■  Heading  "e-dissipation" 

-  Heading  "MU-viscoaity" 

-  Index  for  dependent  variables  and  co-ordinates 
(constant  £) 

-  I-index  of  maximum  dimension  of  dependent 
variables 

■  Integer  controlling  the  choice  of  finite-difference 
coefficients  used  in  sub-routine  LISOLV  for  the 
one-dimensional  region  of  the  solution  domain 


IPREF 


I-index  of  location  where  pressure  is  fixed 
Integer  controlling  the  choice  of  turbulence 
model 


I  BOTH 

INCALU 

INCALV 

IN  CAL  W 

INCALP 

INCALT 

INCALK 

INCALO 

INPRO 

J 

JT 

JPREF 

JTS 

JG 

A 

J 

MAXIT 

MAXIT1 

N  ID 

NI 


Logical  parameter  for  solution  of  U-equation 
Logical  parameter  for  solution  of  V-equation 
Logical  parameter  for  solution  of  W-equation 
Logical  parameter  for  solution  of  p'-equation 
Logical  parameter  for  solution  of  6-equation 
Logical  parameter  for  solution  of  k-equation 
Logical  parameter  for  solution  of  e-equation 
Logical  parameter  for  calculation  of  viscosity 
Index  for  dependent  variables  and  co-ordinates 
(constant  n) 

J-index  of  maximum  dimension  of  dependent  variables 
J-index  of  location  where  pressure  is  fixed 
Number  of  row-cells  where  the  PSL  treatment  is 
applied 

Number  of  row-cells  in  the  two-dimensional  region 
where  the  k-e  Boussinesq  viscosity  model  is  applied 
J  +  N  ID 

Maximum  number  of  iterations  to  be  completed  if 
iteration  sequence  is  not  stopped  by  test  on 
value  of  SORCE 


Number  of  iterations  after  which  only  the 
temperature  equation  is  solved 

Maximum  value  of  nodal  points  in  the  one -dimension¬ 
al  region  of  the  solution  domain 


Maximum  value  of  I-index 


NJ 

NIM 1 

NJM1 

NSWPU 

NSWPV 

NSWPP 

NSWPT 

NSWPK 

NSWPD 

NITER 

P(I,J) 

PP(I,J) 

PRANDT 

PRTE 

PRED 

PIH 

PI 

PRANDL 

QFLUX 

RDIM 

RESORU 

RESORV 

RESORM 

RESORU 


Maximum  value  of  J-index 
NI  -  1 
NJ  -  1 

Number  of  call*  of  LISOLV  for  U-equation 

Number  of  calls  of  LISOLV  for  V^quation 

Number  of  calls  of  LISOLV  for  p' -equation 

Number  of  calls  of  LISOLV  for  8-equation 

Number  of  calls  of  LISOLV  for  k-equation 

Number  of  calls  of  LISOLV  for  e-equation 

Number  of  iterations  completed 
Pressure ,  p 

Pressure  correction,  p' 

Turbulent  Prandtl  number 

Constant  of  turbulence  model  in  k-equation 

(Cfc) 

Constant  of  turbulence  model  in  e-equation 

<v 

2it/H,  H  a  spiral  pitch 

it 

Laminar  Prandtl  number 

Heat  flux  per  unit  area  of  tube  surface 

Dimension  of  tube  diameter  (2R^) 

Sum  of  residual  sources  within  calculation 
domain  for  U-equation 

Sum  of  residual  sources  within  calculation 
domain  for  V-equation 

Sum  of  mass  sources  within  calculation  domain 
Sum  of  residual  sources  within  calculation 
domain  for  W-equation 
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RESORT 


RESORK 


RESORD 


RESU(I,J) 
RESV(I,J) 
RESW(I, J) 
RESM(I,J) 


R1D(J*) 


SO(I,J) 

SP(I,J) 


SMALL 


T(I,J) 

TE(I,J) 


TWALL 


TAUXS(I) 


TAUXN(I) 


TADZS(I) 


Sum  oC  residual  sources  within  calculation 
domain  for  6-equation 

Sum  of  residual  sources  within  calculation 
domain  for  k-equation 

Sum  of  residual  sources  within  calculation 
domain  for  e-equation 
Residual  sources  for  U-equation 
Residual  sources  for  V-equation 
Residual  sources  for  U-equation 


Mass  sources  calculated  in  CAL CP 


Radii  at  I  ■  2  from  the  tube  axis  up  to  the  wall 
Inner  radius  R 

a 

Mean  radius  of  the  fluted  surface  R^ 

Coefficient  of  linearized  source  treatment 
Coefficient  of  linearized  source  treatment 
A  very  small  value  (10  ' 

Perimeter  of  the  cross-stream  plane 
Temperature  0  (■  T  -  T 
Turbulence  energy,  k 
Initial  value  of  temperature 
Temperature  at  the  wall 

5-direction  shear  stress  at  south  wall-boundary 
of  the  solution  domain 

5-direction  shear  stress  at  north  wall-boundary 
of  the  solution  domain 

z-direction  shear  stress  at  south  wall-boundary 


of  the  solution  domain 


•'.-‘-l-'v'/.-'v  1*1-1*  l-'*!\*-\*  1  • 


\  *  ,S  *,  \  , 


TAUZN(I) 

THETA 

URFD 

URFV 

URFW 

URFP 

URFT 

DRFVIS 

DRFK 

URFD 

URF  l(  1) 

URF1(2) 

URFK3) 

URFK4) 

URF 1(5) 

URFI(6) 

U(I,J) 

UU(I,J) 

V(I,J) 

VISCI.J) 

VISCOS 

W(I,J) 

VISID(J) 

W(I,J) 

WFE(I,J) 

WFN(I,J) 


z-direction  shear  stress  at  north  vall-boundary 

of  the  solution  domain 

2u/n  ,  n  *  number  of  flutes 

Under -relaxation  factor  for  U -velocity 

Under-relaxation  factor  for  V-velocity 

Under-relaxation  factor  for  W-velocity 

Under-relaxation  factor  for  pressure 

Under-relaxation  factor  for  temperature 

Under-relaxation  factor  for  viscosity 

Under-relaxation  factor  for  turbulence  energy 

Under-relaxation  factor  for  energy  dissipation 

URFU 

URFW 

URFK 

URFD 

URFT 

URF VIS 

Component  of  mean  velocity  in  ^-direction 
Corrections  for  U-velocity 
Component  of  mean  velocity  in  indirection 
Effective  viscosity  u  ■  y  ♦  u 

6  t 

Laminar  viscosity  y 

Velocity  corrections  for  V-velocity 

Viscosity  in  l-D  region 

Component  of  mean  velocity  in  axial  direction 
Geometric  interpolation  coefficient  in  ^-direction 
Geometric  interpolation  coefficient  in  n-direction 
Mean  value  of  W-velocity 


WMEAN 


YPLUSS(I)  *  Local  Reynolds  number  based  on  friction 

velocity  and  distance  from  south  wall-boundary 
of  the  solution  domain 

YPLUSN(I)  -  Local  Reynolds  number  based  on  friction 

velocity  and  distance  from  north  wall-boundary 


of  the  solution  domain 


5-2-2  Listing  of  the  computer  code 


P»OFRAM  *A  r*,(If.Pl)T/n(|YpilT,TAPF5»INPIlT,TAPF6*0t'TPtlT/TAPF??»TAPF11  , 
•»  TAPF5S,TAPf0,») 

r  sim»onTT.jp  cotJTPO 

r******* **************************** ************** ************* 

r*  * 

r*  a  rnitPiiTf»  roof  ftp  the  ctLCUL atipm  or  tiipb'*lfnt  two-  * 

r*  dt.ifn«ionai.  PIOUS  tmboijoh  a  SPI»auv  fijitfd  turf  * 

r*  DFVC|  OPFI)  OY  A.PAPO*  (R»SFD  O'1  Tmb  Tf  ACw  rOhF  OY  AhTO-  * 

r*  ijopoiu  ,»s  ,  r-osMAu  ,  issa  i  in  t«f  wfchahifai  f  nf  r  f .  * 

F*  OtMT.  » l  M  T  S  T  *G.BFGF  Pl^G.  rPO  »0*  PS*  “A*‘CWFSTFR  * 

r*  r-tf, II  100  ,  F»IGI  AND  * 


fmaotfh  p  it  n  (i  n  .1  o  o  ppfl  tmtnabtfs  n  o  n  r  n  r  ii  r> 
r 

dTHFuSTOu  MFDP  <^  )  *rtFD''  <  A  )  *HFdW  (  A)  ,HF[)P  (P  )  »HEDT  (P.  ) 

1  »MEOK  («.)  *HF»*0<<.)  *MCOriii(  A) 

nTUFNSTOi;  PSI(?S,?5) 

coupon 

1  PesOMIi»r«Fll*«FS''PV/M|*FV*pFS09J’,PESOPU*UPFU# 

1  IIPFP,PES0RT,IIPFT,PF?0P<  »U“FY,PESoPD*HPFD* 

1  »cst'C,5.7P)  *PFS''(?S*2^)*RPSU(?S*?S)  ,RCS^C?5»?1)  , 

1  DH(?5/?5)/0v(?5*?P)*Dv(?5*?S)*(if?5*?5),v<?5»2^)» 

■I  U(?p*P5),PC»5,2,i)/T(2P,7iT*TE(?,!,?5i,FD(7t,?5', 

1  PPcr5*25)»oFU(7<*?^>*VIS(?5*?S)*AM (,S*2^)»AS(,5*?^)» 

1  AF(75,?5)*Aw(?5*?5)*Ai1<75»?,i  WA0(^S*2P)*CP(’5T*fDf?P,?5T* 

1  Cfef7P),CFOT7S,->S),AP(?5,P5>,Siif?,;,->5>*'Pf2,i,P5i,r*r(75,25) 

i  uYr(7S*?5)*n7r(A),*ref??,p5),wFN(?5*?S)*uFD(*'» 

1  »PFAxY(75,?S),F1D(5r»S)*iJlD*Wf,EAN,lMDFx*HYDni'',PAP,01O(S('), 

1  v/F|  !;J,TTU/TWAIL,F10W|N*PPFAT, 

1  .'PKWTS#VISCOS»OefJSIT*Oj<A|iOT* 

1  pnyp  ,PRFD*rwll*CPT*riP#r?il,CAPPA,FI  00#ALAKf>A# 

1  JSJPII,  AS’-'PV,  K«UPW,  NSUpo,HSUPT, 

1  JSw-PK  *1  SyP|>* 

1  TPrFP, JPnrr,XPRPP, JNOFOS 

fP.IPO'i  Ta"XS(?5)/TAIIX»-(Pc,WTAI'2S(PST*TA|IZ'J<P5)» 

1  YPi  l'SS(?S)  »YPI  i:«h(2S) 

1  ,TT*.|T,K  I  ,4.1, NIM  ,4.11.1 

1  ,SVpT,F|  PUTCT*r P'-I»FFI  JX*P10UT 

1 

1  ,PA/RP,THrTA,AH,l»PD7,FLOU»X,0YIPF(?P,?5>#''FTA'>F  #PIU 

1  ,PtJDXT(?5*?S),DPDFTA(?5*?S)»HT4»(’5,?r) 

1  »PI*WTU#FI  own 

i  *  Sr’ A  L  t  *Sl'r,S*Slir''n,i.JI'liP,nXPY(?5*P5i»PYnx<?S,?5) 

I  evr  i  7  *  in' 

ro*’Pl->»j/PLK?/iiiiC»5»75),vv<55*7,>),AM.|(?S,7ii,Asi'(75*2S)* 

1  AFii<rs,75)*»wii(P5,2S),AniU7S,75),Aii'i(95*?S), 

1  ANl/(.',S,75)*ASV(55*2S),AFVf?S,?5),AWW(?5*?S), 

1  ro.J-r{7S,1P),V"i.f?S),JTS» 

1  Alt./  (?*,?*)  *AIIV  (?$,?*),  A  A  (?5) 

1  *.ir,T«OTH*YFP(2S»7)*B0P(75»7)rPP00n(^("»FfcNfJ(2S,?5' 

1  ,P0AN0I  ,FMT(?i,?S),AN(IFs 

1  ,P»')p(r'*?5)*Ak-7C>5,7S),Arr)f?S,75),»KA(7S,2S),R''T(?e,75Y,AXF 

1  *APFT,»KrTP*A*CTD**1P(75)»F1»-7(7S),FlKO(75)»F1rAr?S),FlRWTr?S) 

1  *M0|lMP,r,V|IA  (?s  ,751  ,rf1|ip  (  ?S) 

1  ,nOiit ■»’ 

i  *APi'(',5*?S),APvr?^»?5)*PR(?S,7b),Anr,L  <25,751 
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1  ,KASM*f.  AS* 

1  »tfISVf?S,?S)#VAr?S/?b),VHr?S,?i),VC(?S,?5> 

1  ,PSC  <S  )  /I*Ff,,PAV  JT2 

1  /OBS(',5/7*!)#rfnf-,|jTTFR»«AXTT 

1  ,tietJSC»VTS1i>(50),x*tl  (’5»?S) 

OTi«FiJ*TOU  AfMISSr(’S) 

I  ''liTfAl  lMCALI'#TUf  *1  V » I M C AlP # T HP Al  P,INCAl.T,INPRP 
1  ,»  Vf  Hi  (C»JNf»LP 
(;ofaT»1  .iifjn 
SHA|  |  »1  .DF-Sll 
PT»4.P*ATA|J  (1  .  ) 

JTTFRa.l 

1 

,|Ts?S 

.jSwPlISK 

‘J  S  W®  «/*P 

HSpPWrin 

wSvJPPs? 

rj«,vPTs?P 

•J  S  it  P  k'  *  7 

m  s  u  p  n  *  ? 

r - - - - — — - - — -MFAD’tjr.s— ————————— 

RFAOfS.r'l  f  )  HFD",“Ff!V,HF,1t.,MFPP#HFl>T,MFr<K,HFDr>,MFr>l>l" 
i>1,1  FPH*AT(6a*) 
r 

ri'APTFM  111)1  P  A  R  A  F  T  F  l>  S  A,iP  TOfTPOl  TllPirfS  1111 
f 

UTa?il 
:i  •  ar? •  1 
ul  i»*?n 
j7  =  1 
(11*1 

>4  Till  *M  -1 

I. MIxl •'  .1  —  1 

J. ll'Psf.'.l-? 

3'W**P.P15 

r— - r. r p  1 1  c T 0 y  (ppJu  s°Af I’ro— — — — - ————— 

P  F  A  A  <  1 1  )  >)Xr»nyr»T'XTnF»nFTAT'F»0PPvI*ljP0FTA,HTMR»pP/»NFL 
1  /  PK,,yA  /AH/ilFLI'T  ,FT  AX  I  T,.ia/x**LI 
i.n  711V  I«1  ,UT 
:i«  7  1  1  V  .1*1/ f  .1 

ivc<T».i)  =  r'YC<i,.i)*Rii* 
l>»TPFfr»J)*PXT0F(T#J>*PnTP*F-1.' 

:>  r  T  A  il  T  (T  ,  ,1  )*OFTAvF  (  I  ».l  )  A  H  P  I  * 
i>°i>yi(T,,i)=ppT'XT(T,.i)/HniP 
i>n.>CTA(I,J)sDOnFrA(I/l)/i1"lA 
(  T  ,.l  )smp  ( 1  ,J 

X"l  I  (T#.t)  =  X*lt  <  t  ,.|  )  *Rnj* 

711V  f«'JT1HHF 

PPsp^AOPTf 

RA»OA*pni»-" 

A **s  A  H  A  R P  I p* 

pahsra 

.|F*1,I 
T  OiiTMt  1 


TUFTA3?.*PT/FL0«r(MFLI'T) 
recmnTM.Fa.il)  jg*? 
rec ipnTM.FO.?)  .ig*uj 

ttaosan 
un  1? 

0"  1?  I*?,UTM1 

i?  APFAYv(i,j)*.?5*<fixc<i,.i*i}*DYC(i,j))*<PYP<i,j)*DYCfi*i,j)) 
D7f  f 1 )*1 . 

KToTsP. 

dp  iuf?  .1*1, nJ 

A»'GI  (1  ,.|  )*A“Gl  (NIM1  ,j  > 

A«<;  I  (MX  ,  J  )«ANR|  f  ?,.l  ) 

H"  (  1  ,.l  >*RP  (WIF  |  ,J  ) 

44«?  k»  (N  I  ,.l  )*PR  (2,.l  ) 

I>n  *771  1*1, NT 
AMfil  ( T , 1 )«*mrl (1,7) 

1771  M°(T , 1  )  =  H  A 

MTH*-TAM( fiaxts)/rh 
0"  inn  I*?, MIN) 
ipn  xTnT*xrPT+ovc ( I ,2) 
vT(»T*r. 

|)P  IIP  J*?,MJM 
11. 1  YTOTsVTP  T4DVC(?,.I) 

7T()T*P  . 

7TriT*7TPT*0?C(1) 

— — IOGTCAI  PA°AMFTFBS  cnMTHPLt  IMG  THE  CALI  "F  si'P  Roi '  T » tJ  F  s— - 

1  »«c  »l“*.T9i>c  • 

T»'r  Al.  V*.TP|lf. 

T*TAl  U*.TP|IF. 

x»'r  ai  p*.tpiif. 

IMfAl T*. FALSE. 

T*'PPP*.TH|IC. 

X  F  (  mnTM.FO.0)  GO  TO  44S5 
X*CAL*r*.T»ilB. 

T»'CALP*.TPIie. 

r,A  TO  <.4P* 

4*SS  rniJTXH.lF 

T m C A I Pa.FAL  <E. 

T  w  f  A |  P*. FALSE. 

LL(<h  CPdT  1  H|lF 

— — ...............  FI  KIP  P°()PfPXTFS ........ — .... — — — ......... 

WTSfitSal  .F-S 
ue.ie  jT*lnn(i 
M*>ANi)Ta.  V 

r*wsiPiis.7 

T«fPNP*1 .4?° 

M»  AF'Ol  *P.7t1» 

— — — Tu»mu  fnpf  c n.csT  a r. ts— — — — — - — - — .................. 

mPCI*?.? 

A*C?*.$5 

A*F*(1..AKC?)/A*’C1 

atCT1*1.7 

«MrT?*.s 

a*CT0*1 ,p 

AYfTsI  .  /A*CT1 

A*FTp*Ak'FT«M..Al(rT?) 

C  P  T  *  1  .it 


c*  n*,r<> 

cm*i .44 

c?w»i .9? 
f *poA».41?7 
FI  Of.sO.79? 
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wFFl*nxf(I-T/.i)/(Dxr(T,j)  +  |,xc(I-1/J>) 
jeF730xf(I-1/J  +  1)/(0X'-(T/,l>1)*UXC(I-1/J*11) 
yfF  (T  /.l)*»5*(V  FF1+WFFP) 

Till  WFF(llT/J)sUFEf?/J) 

Jtr  (?,,». I  >*oyc  (1  /iij )  /  ("xr  (i  ,hj  i+Dxr  <?,*;j )  > 

«**F  (.JT  ,H.l )*HFF (7/MJ  > 

00  J562  I  * 7  / N I  f'  1 

too?  fc*»F (1,1 >*nxo (i-i ,1 )/(oxr (T-i ,1 )*dvc(T/1 i ) 
i«r(.Ji,i)*MPF(7,i) 

1)0  041  j.l*1/i;j 

.ISIJ.I+1-,1  ,1 

i>xf  n  ,.i  )«oxr  (K  j*i  ,.i ) 

041  V«ITF  (O/iPI  '  (oyffl/JI/Isl/O'D 


w»ttf  r<>,5<V) 

00  <*4?  J.ISUNJ 
.1  *  N  J  ♦  1  ”  ,1 .1 

oven  ,.i )»oyr  (mm  ,j ) 

04?  U°!Tf  (h/5P1 1  (0VC(I,.M/T»1/tin 

JOITFfftjSr?) 

Sf’1  FO»f  AT(SX#ntlFin.1,/)> 
so?  FOB*ST(1Hn/flO(1H-)) 
no  *4^  ,tJ  =  1»NJ 
.(■M.U1-.I  ,| 
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IF(TlifAlP)  FAIL  CAICP 
IMItPH*,) 

<4  I  *14.1 1 
'4.lM1s*4.||  -1 
4  i  *?*nj t  -7 
,4JMFsr.Mt  -(JTS-1  ) 
i'Ji«ITs:Hjl.-JTP 

14.1  4F  J*MJ  I  +IJ1  D 
IIJttFUlsNJl  -fMO— 1 
on  A i p g  r *1, N I 

on  4  i  pg  .1*44  ii'«  ,hj 

41a9  cn;4Tr')'iF 


#+«**+♦***  ft*******************  *+**#*#**4  4  4  ★★<►*♦♦*♦ 

r»i i.i  .mopvFl  . 

Ft  OUTOT*il. 

Ml  D1*t'1  0*1 
00  <J7P?  J  *  7  »  M 1  01 

1F(.I>E.N1I)1)  FLOUTOT*  Fl  0WT0T  +  |>FK|SIT*7.*PT*P1D(J)*F1D(J»?)* 
1.**(RlD(J*1>-PinCJ-1)> 

TFJ J.Frt.Mlul)  F10W».7^*F10(J/?)*.’S*F10(J-1 ,7) 
l*<J. FU.M1D1)  FI  ()WTOT«FLOWTOT*0BNSIT*7.*P»*F1»W* 

07«?  r  O  »j  T  T  ft  1 1 F 

FI  OW tots FI  <)UTCT  +  PT* (,P«P1 n (?) )**2*F1 D (1 ,2>*nENSTT+ 

1  Fl  OVJ*FLO»T(MFLHT> 

*A7l  fOuTTflllF 

■  iMf#rj«Fl  O  W  T  o  T  /  (TAPE**cL0mt  (  P  F I  tIT  )  ♦  P  J  *  R  A  *  *  7  )  /  0  F  H  B  j  T 
Fl  OHT«FIOWT«T/FLiI*T(N*L"T) 

r— — OAl  CMLATlOM  CF  HOIIF'0»RV  VALUES  FOR  TURPtJI  ENT  EpFOG*  ApP  FnFRGY 

r  oissjpatiom  juft  KUT«ir»fc  t«f  mtxtug  lfa‘Gth  hypothesis  pfoiow— — 

I  FlTMOTM.f'E.I  )  GO  TO  *770 
no  V719 
l»o  T719  IJ»1  ,2 
TR(N.FR.i)  J*JG-1 
TF(K.F0.7)  .lajf. 

fcB1».?S*<l>»PXJ(T+.l)+i>P|>XIU«1#J>«'l>H1>XT(J,J+'1>*DP|>TIfI  +  l,J  +  11> 
AO?*-?S*(0RnET#f|,j)4nPnFTA<I*1»J)-n»R0ETAfI#J4l)-f0RnETA(I*1»J*1)) 
Ar1a.?S+(PXT()F  (  T  » .1  )  ♦  D  X  I  P  F  (  1 4 1  »  J  1  ♦  P  X  T  0  F  (I  /  .1  ♦  1  )  ♦  P  X  T  0  F  P  I  ♦  1  » .1  + 1  1 
A*'?s.7S*PTH*(nETAnF(I«.O-*’0ETA0FfI*1»J>'A,'ETAnF(I»J*1)-M)ETAr)F(I*1 
i,j*m 
«W1«UY0Y{  I,.l) 

4“?«0» OX  < Jt J ) 

AM  S*.75+  (HTMH  (  I  1+HTUR  0*1  •  J  )*HTMP  (I  #J*1  >4HTPR  <  1*1  /  J*1  1  ) 
UXPWS.5*(PXF(  |,.|)4DVCn»J*1  )  ) 

|)HOXP*(|l(  /  .I  >-ll(T  *  J  >  )  /OXEU 

YB».S*CV(T».I)  +  VFI»J*1>) 

f>  V  0  Y  P«  y  X  li  Y  (  T  ,  J  ) 

TBM*'1  =  0M0XP*VP*0XPVP 
fiv,j!f«.S*(0Y<‘(!»J)*0VCFT*1#j)) 
y\»DYM*  (V  <  T  ,1  +  1  )-V  F  T  ,  J  >  )  /  r>YUS 
,IP».S*C(  T*J  )*ll(  t*1  »J  >  ) 

DVOXPSIIYOX  C  T  ,  J  ) 

TS*r  ?*l)VOYH  +  <IP*PYPXP 
niJI)7i»sil.il 

yPF*.S«(j(I*1»J*1)4V(t  +  1»-I)> 

VCsVFr+UFF  (T  +  1  ,.l  )+VB*  f  1  .->WFF  (1+1  ,.l  )  ) 

V'JJa.S*  (  v  (  1-1  »  J  +1  1  +  V  (  T-1  r  I  )  > 

V/U»WP*kFF  (  I  ,  J  )  + VUU*  <  1  .-WFF  (T  ,.l  )  1 
l)W|)XP»(VF-VU) /oxew 
IIA'I+a.Fwf.K  J  +  1  ,j  +  1  1+|i(T,J+1  )  1 
.•F'«|uiU*i:FM  ( I  /  J  +  1  )  +  iip*  M  .-UFH<  T  *Jt1  ) ) 

UFS«.F*(,i(i+|,j-i)+ii(T,j-i)> 

•  i«al'P+WFtJ  (  I  ,j  )+l'SS*  f  1  ,-WF*'  (  T  »i  )  1 
illlll  Vl»«  (UN-ilC  )  /  p  YNB 

TB  (»"<,*  o  VOX  P+DUOYP-VP*nYDXP -IIP*  DXpYP 
tPa.S*(W< T  » J )  +  U  f I »J  )  ) 

0BF«.Fi*(w  (J  +  1  ,.l  >+W(  1  +  1  ,.l  )  ) 

J  (I-1,J>+>W(T-1,.I)) 

weaWFF*UFF (T  +  1 ,J )+UP*  M ,-WFF (1+1  »J ) ) 
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| 

i 


f 

i 


i  vr 

I 


JUaWPAUFF  <  I  ,J  )4VUW*(1„-WFF(T,J  )  1 
OWPXPa<ue-iJU) /OXgV 
Httil».S*(U  <  J4l  ,jl4ti(I,.|)  ) 
n»»i)«.5*{n  1 1*1  »J  >♦"(!».• )) 

0»'*IIDP*UFP<1  >41IP*(1  ,-MFftd  >  1 
TKPIM.Fo.tl.n)  0 0  TO 
0"07P»0.0 

TB»fS«0WDXP  +  AP3*Dll07P*Atf1*DtiUXP  +  Alf?*0ll0VP'»(-Alf?*AM?**tf1*AHl- 
1 A»3*AH3*AP?/AIM  )*VP 
30F7  fi'iJTIMIIF 

TF(PIH.Fu,0.0>  TEPH5«"UDXP 
vno*.5*rv(  J  *j«1  >4-v(I*.i  > ) 
tf"lla„S*CV(I,J41)AV<T,t)> 
vnavoo*WFP (1 )*vp*< 1 .-WFP(1 ) > 
vm*wp*vifo  ( i  )*vi.!'*n  ,-i'FPd )  > 

0i/n7Pa(V0-VII)  /0?CF1  ) 
yt'ua.S*  (  W  (  I  *  J*  1  >4W(  J  #.141  )  ) 
kJ«S*.S*(w(X,J-1  >4V(I,.t-1  )  1 

JH3UUM*UFtJ  (T  ,J41  )4UP*n.-WFN(T#j4l}) 
l.'<aUP*  jFr.'(  I  »J)4WS$*CI.-WFN<I»J  >  ' 
f)l.'DYPs(W('-WS  )  /OYtJR 
|F(PIH.FO.O.fO  «0  TO  7**2 
0  V  .1 7  P*0.  ( l 

TFrf*'ft*OWI>VP4AK340VOZp4Alfl4  0VUXP*AK2*OVOVP4(-AM4A«1*A(f2*AH2 
1  ♦AK3*AP7*AH3/Ak1  )*IIP 
7*42  CnNTINitr 

I  F  (PIK.Fw.U.O)  TEPM6«"WPYF 

TFpf*3*AK1'*n'itjXP4Aif2*D'4  0YP 

r**Hf  I  ,,l  )=(?.»  (TFHf1**?4TFPM?**24TFR«*3**?)4TFRr4**?4T6Pp,>4«?4 
1Texf'f,**7)*0'tS  <1  )*>VTSCO$)  /  PFUR  I T 
TCH(T/J)aSnPT(FnnFl#i.  >*(VTSfI#j'-VISCOS>/fpFNSIT*FMI')) 

37‘i‘J  rofjT xmiF 

oo  3,ii9  u*l  ,2 
F"H(1  *M)aFpn  (MJKI 

F«rUrlT,'f)*Fr*Hf?».J> 

TF«  (1  ».nsTFP(NJf*1  ,M) 

Tepf.*I#»‘l»T«l<f  7»N) 

3«1  9  C.  O  JTT’MIF 

0r  391 9  |*1, M 
TF(T,Jf.>*TEP(I,’) 

FO{T,.l<-,)*F0P(T,?) 
tf  (  t  ,.ir,r*i  )*tff  ( T  #1  > 

FP  (  T  )=FDP  (  T  ,1  ) 

391  9  FOttTlMlIE 
372.1  CO*.’  TI»‘I»F 
AIOS  rOwTJW.lF 


r* 

r* 


I llTPOoUCT  ION  OF  7  F XT R A  NOPE*  Trt  TMF  FTrST  ROW  OF 
FFL15  AD.IAfFMT  TO  YMF  KAI  I  For  THE  TFMPEPAUl®E  F<HI. 


J  F  (YAS.1.F0.1  )  r-0  TO  *^6P 
if(*-itfp.fo.(*axit141>)  ar  to  *.m 
<;o  to  47rP 
4111  COMTIWIIF 


0,(  F  1  *f',l-1 
O.i  F?*o.|-2 
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N  I  FTsN.I-3 
joi  r*vj 
.1  f  A  P  *  ? 

:i.|*N.|4JCAP 

iJ.I.4l*M.|-1 

.4.l»>1aN.I4l 

r>P  4*77  1*1  ,  N  I 

T  (  t  »  (>' ,1  )  * T  (  I  /  JCL  P  ) 

4477  J*JPl  B,*.|l»1 

*i < T  »  J  )*•'(  I»MJF1  )**?/FI  OAT( JCAP  +  1  ) 

<i(l*  n  i*o.n 

V(T  ,.I)*V(  I  ,»JF  I  )/F(  (lA*  (JCAP41  1*.?S*(I4.I-.I  )*(1 .4(NJ-J1  ) 

V(  J  ,  1.1  )  Sll.o 

J(  I  ,  J  )*W<  T  ,**J  FI  1  /F,  OAT  ( JCAP41  1*.5*(NJ-J  1**2 
■•■ii  r  »'j.i  1*11.11 

T(  I  ,  J)«T<1#*'.(M1/P10AT<JCAP'»1  >*.5*(NJ-J >**2 
.IPIs.l-1 

r.PTf  I,J"1  Isi'ISCPS/PPA^Pt  4(liPT(I,NJF?l-VTSf‘OS/PP»nr'Ll/Fl  P  A  T  ( 

1 .1  f  A  P  +  1  )*.?5*  (NJ-.I  1*  (1  .4(11.1-.!  )  > 
i;»t(i,m.i  i*visros/pp»fiPL 
G»*T  (  I  ,U.IM1  )*VTsrnS/PP*NDl 

VTS(i»j)*VI«COS*<'.M5(T,MJFl)»VI«COS)/FLPAT(JCAP*1)*.5*(KJ-J>**7 
i/i?ft,nj  )*vTsrp« 

3F:i(T,J1aDF!'STT 
oPU  <  I  ,'l  l  IsOPfJFIT 

ovr  fi,ji*Pvr  (!/»’jfi  i*?./6. 
te(.'.PO.UJi’1)  DVC  (I /J  1*"Yf  <T,NJt1  1*1./6. 

4477  OYCf  T  ail  J  1*0.0 
l,n  1011  1*1,  NT 
jsu.l  FI 

ii(I,;jJFl}sii(i,:,jFl>4<n(j,NjF7)-i'(T,MjF1))*1.S/6.*llY(“<T#NJFl) 

1/C.5*{DVC(I*ilJF1>4t>YCfI#li.lF?>>> 

,  UF1  lawn  J4(4(T,»  JF?)-U(I,KjFl  >)*l  .5/6.APYP  (I  ,N'JM  1 

1/».'*(nvcfI,ilJFl)*1>YCFl»M.tF?))) 
i>vf  U  ,m.I  FI  )*t»YC  (I,N.I  FI  )  /  ?. 

T  (  I  ,.Jj  FI  )ST  (I  ,f  .1  FI  }  *.«;*(il.l-.l  1**7 /FLO  AT  ( JCAP4  1  1 

v  »  S  (  T  »*1.l  Fl  )*VTSC0S4  1 V  TS  (I  #!«.!  FI  )»VTSrOSl  /  FI  OAT(  J  t  AP4l  1  *  .5*  (N.l-.l  1 
1**7 

TV11  fOMTT»IIF 

1)0  U  P.1  1*1,1,  T 
ilYC(T,*.l  )*1>YC  (I  ,J«LO) 
no  ,i*jol  P,f  jf’1 

!>Vf(T,.l1*DXF<J,*'J)4lovC<I#i4JF1!*OXC(I»N.l)!*«2^*(NJ”J)*(1.* 

1  (*'.I-J  1  1  /FI  OAT  ( JTAP41  1 
4t«n  fP.iTTN.IF 

(,«  4 <.99  1*1  , !•: T 

ftvIOF(I,WJ!soy!PFCI,jPLP! 

i>PTAOF(l,rijisnFTAnFU,jOLr) 

1)0  44«9  JSJ0L*),MJ*1 

4PFAXY(T,.l)*0*CCI,.l)*"Yr(T,J) 

»°FAXY(I,NjF1)aOXr(T,»IJF1)*PYr(T,NJF1! 

A»FAXV  (  T  ,N'.|  l*r.o 

PYT0F(T,jlanxlDF{T,Njl4(0YXHF(I,M>IF1  )-D  VI  n  F  (  I  ,NJ  )  )  /  *LP  AT  (  .1  C  AP 
1*1  1*.?5#<?1J-J  1*  <1  .♦(m-.l  1  1 

F>eiA(lF(T,J>*(lFlADF(I,»'.lT4(t,FTA0F(T,NJF1Y-nFTAHFU,HI>)/FLPAT< 
1.KmP*1  1*.75*(K’.I-J  1*(1  .4  (.1,1-. I  )  1 
P(|  ,.l!*P(  I  ,MJ  FI  1 


14 


4*09  P(  I  ,iij  )  =  P  (  I  ».mj  M  > 

1)0  4411  J«I,J  FI  »f'JMi 
00  4411  I  * ?  » N  J  f*  1 

jrFlaPKr ( t-1 *J)/ (nxe(T»J )*DYC(I-1 »J) > 

W'  F?sD*C  (T-l  /j4l  )/(l)|(r(ItJ+1)HyC(l-1.Jtm 
4411  ,J  )s.5*(t.FF1*UFf’> 

i,o  4*??  I»?»NTr1 

44??  w*F  »  l  #|M  )«OXC  (1-1  »!|J  )  /  (PKf  (T-1  ,wj)+DXC{I  ,»ij  )  ) 

00  4411  .(SIJ.IF1  ,H.I 
tJFF  (1  ,.|)aWFF(WIM1  #J) 

44H  uFF  (rjT,.l  )*H'K2/J) 
r>o  444*  I  * ?  » i •  T I'  1 
jru  (l/r4J  )  *  1  . 
on  4*4*  J«i4.lF1,f*JP»1 

ueuisovr  (i+i  ,j-i  >  /  (ovrd^i  ,.i  >*ovc  (i*i  #j-i  > ) 

jef.?sPYf  (  T#.i-1)/(f*VC(T».l)*0YC(I*J-1)> 

44  4  4  jF.j  (  I  ,  J  )*.5*  (L'F  f'1  ♦WFU’  ) 

00  1  4  1  1  J»U.IF1,f4J 
ur.j(  1  ,.\  )*WFF'  (M"1  *.l  1 
1  4  1 1  .4FrU0T,.l)«WFM?,J> 

41*6  rOwTIMHF 
Twoex»S 

IF(TiifALT)  fall  CAl  C7 

T*(rft*i4.F0.?.»KP.MiTF».BT.M*XTT1  )  60  To  4194 
M  .1 L  a  1 1 J 

T  *  ( IPOTM.FO.1  )  »'.|a.|B 
T»'0F*=3 

It  ( I M  r  4  L  K  )  CALL  CAl CTE 
I  K1 1)  F  X  *  4 

TF  (Tf'C#LO)  CALI  CAICFD 
T  e  (  T’tOTH.EU.I  )  *l.la(J  Jt 
Ie(I)0TM.F9.1)  *’ J  A*  1  aU.IL-  J 
}  t  (IllOTU.ey.l  )  MJ«?«N.il-? 
tf(Imotm.fo.i)  r jk'FU»M,n  ♦mo 
t  F  <  ThOTM.F‘4.1  )  N J W FV!  1  a l< ,1 L ♦  1  0— 1 
4 1 °n  C O w T  T  V 1 1 F _ 

T  F  (  T  :IC  ALT)  0-0  TO  1?19 
«0  To  1 ?  3? 

1719  C  o  j  j  T 1  tJ ,  |  F 

,>o  1734  i*?,uirl 

T  (  T  ,  4.1  )*T  (I,NJM  )40FL"X/T»JCOMP*(.S*OYr  (T#»'JM  )  ) 
1734  COJTJF'ilF 

f>o  o^7n  t  =  i,r4T 
00  o«7„ 

T  (  I  »  1  )sFlO(*'10H»4) 

Tn#?)«f19C1(i?*3) 

m,.i)«T(MlM*J) 

0,476  T(.ir#.l  )ST(?».I  ) 

I  F  (L'ASO.FO.O.Aur.NlTFP.BT.MAXTTI  )  60  TO  4197 
1773  COnTTNIIF 

00  ?9l4  I«1,nJ 
OO  ?914  J»1/NJ 
TFdr’oFX.FO.D  «0  TO  33S4 
0' T  «1 )aF1 D ("1 P*1 *1  > 

.  9(1 ,1  )»F1  0  (i'ir  +  1  ,t) 

T  (  I  ,  1  )«FlO(»'in4l,F) 

.KT,?)sF16(»'1P*?»1) 


'it  J,?>»F1D<P1D4?*?> 

If  I,7)«F1f><P1D*?,5) 

TC(T,1)»MDfU1D*1  #3) 

F*(T,1 )»FlO(N10*1 *6) 

SO  Tit  15«5 

35*6  0»ST«»A*.5«nTf  (T#?) 

t /I )*" ( I /?)*RA/p 1ST 

U ( I, 1)sV (!,?>*<  (RP-»AW(RP-PIST>)**M./7.> 

TF(T#1)pTF(T»?) 
rt(T»i )»en<T/?) 

3S«5  ff*.JTTMtlF 

Hf  1  ,.i  )sli(Hini /J  ) 

HfHT  »  J  )»llf  ?.J  ) 

■in.. i  )»u(nipi  ,j ) 

Jf.lT,J)*;f(7/J> 

TfMT,J)»T(?»J) 

TF  (  1  <  J  )*TF  <  ^  I F*  1  ,  J  ) 

TC  (*'I  ,J  )»TF  <2/ J  ) 

FM1,J>»FP<f*IM*J) 

Fn<f.*T»J)»ei»(?»j) 

Te ( T  »Fj)sn.f 
FnjT^KJJaO.n 
7914  Cfl|jTI«j|iF 
ri  pt' ST  si 

I  r  C I tjPRO  )  C*LL  PROPS 

r - intcrperiftf  output — ————————————— 

RFSOptispFSOPII/Sf'ORU 
tfCSOP'/aPESOPV/SNOPV 
RPSOPUsPFSO°W/S*'OP« 
pc  SO  ESOPF/SVOPM 
PFSORTsRFS(|PT/SUOBT 
ReSOifKsBE*<>PK/S**OPK 
«FSOPD*PFSOPU/SUO°0 
i>0  7317  T *  1  » fl  I 
1)0  7  117  J  *  1  /  N .1 
PeSV(I,.l)*PFSV(T».l)/S»'UBV 
KPSWfl  ,J  )*RFSV  (I,. I  )  /Sf'UPw 
nfS*(  I  ..l  )*rfeSP  (T,.|  )  /S«0PV 
7117  »eS(i  (  l,j  )sRrSI<(  J  ,.l)  /S»'OPM 
J°ITF(5S)  U,V,k 
R«l'TiJP  55 

V  ®  I T  F  f  2  7  )  U^V»V.»J,»VTS»i4TTF«,F1p»VTSlD»T»TF»FO»SPOPK»SKOFD»VTS'' 
PFUTMf)  77 

I  T  F  (  90  )  i;FPN,PROf)|> 

SFiJTUO  «9 

v°ITF(6,311>  NITFP,»FBO»iI,RFSORV,PESOPW,RFSORK,RFSOPT, 

1  P£SOPk'»RFSORp, 

1  u (Thom «j pon) «vf ipon».moh),v(tmoN'JFOm) 

1  ,P  UPON,  I»0N)  ,TF  f  I  PON,  jriON) 

r,o  to  419P 

4197  COoTTVIIF 

RFSOpTsPfSoOT/SNOPT 

UPITF(o»66o)  UITFP»PF*OPT»T(IPOP»JMOI1)»T(7,NJ> 

046  F0pPATC1H,XP,3x/1P1P9.2»3r,1P?F1u.?) 

410fl  fOUTTNilF 

rF{Pon(PiTFP#TriPpPT)-MF.ii)  r-o  to  301 


MPTTF  (A, 33l>1  )  NTT«» 

3 301  format (in  ,Tu) 

iKT'iraLit)  r  »  l  l  p®  i  kt  •  ? » i  »ut  ,nj  ,  it  ,,it»  *v,  y  ,h,hepii) 

|E<T:/PA»V)  PA(L  P»IWT'1*2»wJ»a;j*JT,.iT*X»YW,V*MEI>V> 
T'TTOP  ALL,)  r A l  l  PP1NTM,1,.3T,mj,jt,.IT,X,Y,.J,HFDU) 
TMT'JCul?)  '"ALL  PPIKT  M  *1  #i4l»A'J»IT,.IT»X/Y#P»Hf  OP) 
I#(T.-jfAIT>  CALL  PBT*'T  M  >1  ,.JT  ,MJ  ,  I  T  ,  J  T  »  X  »  Y  »  T  »  HF  0 T  ) 
i.n  *.i.i 

1 1  (  T'LPTM.Fu.  1  )  Njs.lG 

TP(lJfALK)  TAIL  PPTNTY1#1»!JT»*JJ*IT/JT»X»Y*TP»PERK) 
]F<TofALO)  '■AIL  P»IPTY1»1,M»VJ*IT,.IT,X,Y,F'»#P6f*n) 
i.'.lsN.ll 

IMlUAnn)  fAll  PPJA'T'I  »1  »M»«J  »IT,JT»X»Y»VIS»HFDP|M 
0®TTf<»>,31.1)  Ii»Oij,.I"0* 
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VJP  I TF  (0,16.57)  TOTA,HY«nT  A,5,VET,PFY 
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UPFVIS#VISCOS,f)FfjSIT/PRA)JftT# 

PPTF  ,PPFn.CMH,ClT,C1tl,C?!1,CAPPA,EI  0«,ALAiAPA, 

M?WPU»  A'SWPV*  I.  FWPH  /  NSWPP/MSWPT  / 

*jSi;pk  /WSWPO/ 

IPPFF,JPPFF,KPRrF,IKOrO$ 
f  am  PON  Tai,X«(75).Ta"XF,(751,TaiiZ5(?5),Ta'IZ“(25), 
YPU'S«<25)»YPU'«N(2S) 

,TT,JT,KI,U.J,  NIM,  UJM1 
.SWFT/Fl OWTOT/CPU/OFI  UX, FLOUT 
,M1 /N’ 

#PA,PP,THFTA,AH,0Pu7,FLOWAX,0XXPF  f?S  ,?5),PETaoF(25,?5),PIP 

.APOXT  (75.25) ,d»ofta <?5/25),MTH»(75,?*) 

,PI/wTN/Fl  owu 

,5i1AU  ,$UWS,Sllr'P,Irfl'i*P,f)XAYf2S,?5)  ,OYPX(25,?5) 

I  FVFL  7,  1(11 

COMPOP/Pi  K?/llli(’5,?5),VV(?5,25).Awj(25,?5),Asii<?5,?5), 

aFiU?5,75),»uh(T5.?5).A9I|(25,7S),Aici{75,;>F)  , 

A” V (75,25), ASV (’5.25 ),AFV(25,?5),AUV(?5.?5>, 

CONT(75,ir),VP(.  (25)  ,JTS. 

ABVf?«/75)/AIIVC’5<'?S)#AA(‘»5) 

/.ir./TonTP/TFP  (75,2)  ,F0P(75 ,2),oR0DM50)  /O.FNN  (25,75) 

,pp«NDI  ,Gr'T(?5,75) /ANIJSS 

»opr'0(?S,75),AK7<,5,7*),rtxf)f?S,7S>,AnA(75»25)^P'<T(7S,?5),»KF 
,AKFT,AKFT'),AKrTA,F1P(75l,FlK7(2S),F1KP(75>,F1KA(2S),F1RWTf75) 
,N()iiitP,Cr  HA  (75/75)  .Ciihr  (25) 

/  f  J  0 1 1 M  P  7 

,  apii  (75,25  )  ,APv  (75,?5)  ,PR(  75,75  )  ,*M«l  (25,?S) 

/KaSH/HASP 

/ VI SV ( 25,75) /VA (75,75 ),VU (25/75) /VC (25/75) 
»PSC(5),ir*Efi/PAvIT7 
/**RS(,5/25  )  /RPp/NITFR,-AAXYT 
/  TL  Fuse  /Vi  Si  i>(5P)/xrU  (75/25) 


r* 

c* 

c* 


r a  1  r H L a t I c‘*  of  efffcyivf  v»srosiTv  a m r>  thermal 
PJFFI'STvITY  fop  THF  7-0  P  E  5  I  0  N  0  P  T  H  F  SOLUTION 
OOclAI*1 


TI'RPIM  E*'T  VTSC0*ItY  1 


1  1 


0  M  a  n  T  F  P  111111 

r 

r— — CAlCiIImTION  OF  FFFECTtVF  VISCOSITY  from  iATxInF  LENGTH  HYP0TMESI5- 


MmPI-IFIPD 


RYW».1  1*<PP-AH) 

FYrHATaVX<:cnS/FP«NOT 

.IRi>1s.lfi4l 

tfoooth.fo.?)  r o  to  i?38 

T  e  (  TOOTH. Eii.(')  JPS«7 
I  F(To0Tm.F0.1 )  JrSsJGM 
oo  mr  is’,f'rn 

DO  100  j  =  j(;S,NjM1 
t SOI OsvTS ( T  ,  J  ) 

HOaU  <T,J)*<1.-fcFN<I,J41))4wa,J*1)*WFH(1,J  +  1> 

.JF  =  W  (I#.l>*WEKrj,j)+u(T,J-1)*(1.>UFN(I»j1) 

U'JDYVS  (UU-W«:  )  /  (.S*(DVO(T#J)-»0VCM-»1#J))) 

HI  vs.?S*  <  Xf’l  L  (I  #J  )4XHI.  L  (1*1  »J  )+Yfl  L  (I»  J  +  1  )-FXMLL  <1*1  »  J*1  >  ) 

rxfri  Fwsr.Fo.r )  <,o  to  3 ??•! 

HI  VaRL  V*.41»7*  (1  .-FXF  <-«L  V*F«PT(0Ff4SIT)*SOHT(ABS  (TAIlZMd  )  )  )  /  VTSCOS 

1  /?«.  )  ) 

V77S  rOiJTTflllF 

VTS(  I  )sOEH(I,.l  )*HL  Y*Rl  WA  A«>S  (  D«0 Y V )  ♦  VIS C«S 

- - —  0*,DFP-  PFLAX  VTSCCMTY  — - - - — - — -------- 

7(i  Mi  s  (  T  »  J  >»URFVTS*VTS  (  I  »J  )♦<!  .-ltRFV?$)*Vi*Ol  0 
10P  C  O  w  T I N 1 1 F 
1?*H  f out x VUF 

— — f  *  L  f  1 1 1  A  T  J  0  U  OF  FFFFCTTVF  VIFCOSTTY  FROM  K-e  no  t  FL  op  I  M  P I.  I  FIFO 

A  *.4  HO  I)  F  L  ————  —————————————————————————————————————  ————————— 

T  (  (  TMOTP.Fh.O)  RO  TO  11IT7 
,|R|l?ajR-? 

T*(T00TH.F0.1)  .IRIb.IRM? 
f  FauOTH.FO.71 
oo  m  is?, him 
do  hi  .is?,.ir,i 
VTSOI  Ca\<lF(T»J) 

I  F  (..iITFP.l  T.UOlif'R?  )  Ro  TO  AP73 
I  * (Km* I.FO.T)  RO  TOY  A873 
1«<yaSh.f0.7>  (,o  to  ap/P 
if (pranol.eo.c.7i!P>  Axiifar.onri 
TF(PRAfJDI  .to. 7. 03)  AK»C*0.llpni 

AYM(I..I)xAkPC*<TF(]»j)/(tn(T,J)*SMALL))**,*DXPYCI/j)*(2./X.*TF(T, 

1 .1  ) 

1W.F*(IUI,J)*ICT  +  1,l)))**7)<(T(T,J+1)-Tn,J-1))'(DYr<T,J)4DYCfI  +  1, 
1.0) 

AH|)|i!)ys{.25*(|i(T,.|)4,ln,J*n4||(T4l/.l)*l|(l4l,J41))-.»5*(r(T».l)* 
1i'fl4l»J)  ♦«(»/.  1-1)  ♦HfI*1#J-1)))/F.,5*fOYCFI»J)+PVf(T*1#J)n 
RPuD(J»J)*RFUMT,j)/aPF#XY(I»J)/OFK(I»J> 

A*'r  =  AYFT*M.-AKFT*AYF*AXA(I»J))/(n.-AXFTD*AKrTD*AICaCT,J))*n.- 
iH^FTaSKF* 

1  A  Y  A  (  T  t  A  )  )4»YFT|)**7*(TF(T  » .1  )  /  (  F  D  *  I  »  J  )4SMACI.  )  >  **  2*  D*  DY(T»J)*.S*f 
1  il  r  I  ,.l  )4|I(  141  ,J  )  )*AKI)|IPY) 

AYDTT  ,.l)s  ««<■*?./ 3.*  {1  ,-AKF/  ffO  (T  ,.|  )4SMAl  L  >*PR01>  (l  ,J  )  )  /  (1  .-2.* 

1  A*'  A(  I  ,.|  ) 

IwAKCaAKF/  (E"  (I  /  .!  )  ♦SPALL  )  ) 

P',T<T,.l)a-A*'0(I,J)l»TF(I/J)**7/(FDfI,J)4F,1«LL)*(T(I,l  +  1)-T(I, 
1,I-1))/(DYC(1».0  +  DYC(I*1»J)) 

AKH*AYf*(  1  .♦AY  FT*AKFtD**FA  (T  ,J  )  )  /  (1  ,-AK  F *  1 1C  F  T*  A Y  A  (I,J  )  )4  (  AKF*AK  FT 
1  *f>YFTD**? 

1*«KA  <  I  ,.l  )**?«AKfTD*  (1  ,-A<FT*AXF*aKA(I»J  >  )  -  A  <  F*  AX  F  T  *  AK  FT  P  **  3*  A  r  A  (I  » 
1.I)*0XDY( 


1I»J)*.5*(ll(T»J)*U(I*1,J)>*A*DUDY*(TF(I,J)/(F0<I,J)*SMALl  >>**21/(1. 
1-AKF*AKFT*AKA(OJ>>/<<1.-AKFT*Ali‘F*AKAfI»J>)*(1.-AlfFT[>*AKC'"D*Ali’A( 
1I#J>  >  +  AK  FTD 

1  **7*  (TF  (  I  ,  J  >  /  <Ef>  (I#  J  )*SPAI.  L>  >**?*PXOY  (I  ,J  1*.S«(ll(T,J)4li(l4l/j))* 

1  AlOOflY) 

AYZ(I,.|)sAKP*(2./‘*.*<1.-A*’F/<FDfI,J>4SM»U  > *PRDD < T , I ) > -A* F/ (£0 ( I , J 
1  >* 

1  SMALL  )*?.AAF'BCA|>XftV(I»  J  >*(2./3.*TF(  TO  )*(.S*UU1rJ  )  *(1(1*1  fj  > ) >**2 
1>*rtVT(I/J>) 

I P ( J  _l  T  .  {  J  G-4 ) )  CMUA<T,J)sAK7(I,J> 

I  «  O-PE.C  Jf<-*>  >  C"HA(T,.|  )«U.HO 
GO  T <,«73 
4H7K  CONTINUE 

AV|>lll)V«(.?5*(l'(I».l>*U'I#J*1  )•*■!*<  T -4-1  #J  )*ll(  1*1  /J*1  >  )-.,5*(ll(I#J)4 
iii(i*i,j)+ii(T,J-i)*iifi*io-i>))/f.5*(Dvc(i,j)*Dfr<i*i,j)>) 
PYOI'DYs.S*  (ti  (I  »J  )*H(I*1  •  J  1  )*D*Dv(IO  ) 

TF(j.SF.{JR-4))  CMUA  (t,j  )s(J.0O 

Ann#J>s?./3.*(1.-.7/3.)*.7/3./(1.4l.7/9.*PICl>lj0Y*(TECI,Jl/ 

1  FO<  T,J  )  >**7*(eKI1IIPY*.7*AKMJ0Y)  ) 

TFO  .1  T.  C  J6-4)  )  CMll»(1*.l)*AH’7fj»J> 

4A73  CPf/TIW|*F 

T  F  (KASil.EO.P)  CMll»II.C° 

I F (K aSU.FO.O)  C^U  A  (  I  »  .1  )  *tl  .U9 

tfcmite®.lt.noii*v?)  v?sa,J)»run 
1*f>FVCT,.|)*TF(I,J)**?/FFr>(T,.l)*S"All>*VISCOS 
T  f  (  V  T  T  F  P  .  G  E  .  M  0  U  *1  k  ?  )  V  T  S  f  I  ,  J  >  *f  fin  A  <  I  •  J  > 
1*l'Fti(I„l),TF(l,.l)*«7/fFI)(T».l  >*S*ALL>*VI«COS 
YTS(  I,.  l)=l'KFVIS*VTS  (I,J  )  +  (1  .-"HFVTS)  AVI  FOLD 
111  rOJTTMIF 
1,177  CO.JTTNUF 

r. 

fPAPTFrf  7  7  7  ?  VISCPSTTIEF  AT  BOUNDARIES  ???7???7 

r 

DO  IS  P  la**, Min 
.1*1 

V’sn».l)»VI«(I/.l+1  ) 

.1*11.1 

i/T  S  (  T  *J  >*VI  FCPS 
isr>  rojTir'IlF 

i>0  170  .1*1,  MJ 

VTSfi  ».l  1*VI«(NIf1  ,J  > 

1/1  SMI  )*vl  S(?,J  ) 

17r  CO  NT  T  Ml  IF 

r— — —  CUBIC  SPLTNF  TIITEnp/'LATTOM  FO®  *1 F  A  R  WALL  REGION—————— 

.1  C  T  ®  *N  .1/7*1 
IU.I*  (NJ-jST®-1  )  /2 
fo  T3S5 

00  71SS  .1  J  *1  ,T  J  .1 
T .!*?*.(  .1-1 
.1  ■  N  J  - 1 J 

P.IV*.S*(RR(T/KJ)*PR(I*1,lJJ))-n.7  5*(PH(I«J1*RRYI*1«J1*PRM*1»J*1) 

1  *°R  f  I  0*1  >  ) 

IF(.i.LT. II  Jill  )  P  JVP1*.7*r(RP(I  ,mj  1*PR(I*1  ,r|J  )  ) -C . 7 5 *  (  ° R  (  I  *  J*1  > 
1*0R(i*1O*1>*RR(I*1O*?)*PR(IO*?>) 
tf(.i.fn.h.iiii  )  R  j  v P 1  * o . < i 

R.»VP1*.S*CRP{T,H,|)*RRCl4l,U,|))-.?5*(RP<T#.l)*RP(I*l4.l)*RP(T#J-1>* 

1 R® (1*1 ,1-1 ) > 


26 


s# 


yC(I«JJ)*VI$(I,J-1) / (PJV-RJVM1 )/ (BJ VP1-BJ«M1 )pVIS(I,J41 )/(RJVP1- 
1BJV)/(RJVP1-RJVM1)-VI«(T»J)/  (PjVpI-BjV) / (PJ V-R J«Ml  ) 

vuj'jj  )*vc  ii*jj  )*rj  v*rj  vpi*visd'J  >*rj  vpi  /(rjvpi-rjv)-vis(I»)41) 

1*PJV/ (RJVP1-RJV) 

yp(T#JJ»»-VC <  I*J  J)*(RJV*RJVP1  >P(VTS<I#J«-1  )-VIS  (  I#  J)  > /(RJVPl-RJV) 
IFfJ.LT.NJMI )  RJVN«.5*(RR(I,NJ)4.pR(I*1,NJ>)-n.5*(PRfI#J+1 )♦ 

1 RR  <  Tpl , J  4l  )  ) 

TKj.EO.NJHl)  RJVN»(.8*(RB<I,NJ)4RR(I41»N.I))-.25*(RP(I#('J)P 
18P.(Tp1,NJ)prp(I,NJM1  )4RP<TP1,NJ Ml >))/?. 
P.IVS*.5*<RR(I#NJ)4RB(lp1,NJ>)-0.5*(RR(I*J>4RRri*1  »J)> 
yTSV(I»J>»VA<I/JJ)PVBK»JJ  )*RJVNPVC<I'JJ>*RJ  VN*RJVN 
y!SV.(I»J-1  )*V/»  ( I/JJ  )pwB(I#JJ )*RJ v$*VC (I#J J  >*RJ VF*RJVS 
3355  CONT  INIIF  . 

NJTAM*NJ-?*NJ J 
NJTONaNJJAH-1 
00  3?9l  I»2#NIM1 
0"  3791  J«2»NJT0M 

3791  V I S V (  I  ^ J  )* V 1 S T I  » J  ) * ( 1  -“UFN  ( I  /  .I +1  ))PVIS(I»JP1  )*UfNTI#JP1  ) 

DO  3366  I-2/NIH1 
VTSVf T,nj)«VIS(I/NJ ) 

3506  VTSV(I«1)*VTS(I#1> 
pO  3377  J*1,NJ  . 

VTSV(1 f J)«VI$V(NIM1 »i ) 

3377  vTSV(NI,J)avl$v<2«J) 

00  3898  1*1, NT 
pO  3JJ98  J*1,NJ 

3898  TF(VlSV(I/J).LT.VlSCOS)  V I SV (I t J ) *Vl SCOS 

r 

CHAPTER  3333  CALCULATION  OF  TURBULENT  PRanDL  NUMBER  3333 

c 

oo  3322  i* 2, mini 
. . -  .  00  3322  J-1 »NJP1 

C  —————  T N 5 F R T  CEBFCIS  OtSTRlBUTlON  OF  P R A N D T ——————— 

RLV*.5*(?MLL (I,J)pXMLL(Tp1,J)) 

RLVVaRLV/ (RB+AH) 

TF(PRANOL.GF.r.P2.ANO.PRANOL.LE.0.3)  RDPL*476.2* (PRANDL**? ) 
1ri«?,.1*oH*N0L-»3|!-57 

T  F (PRAnpl.GT.P.3.An».PRAN0L.LT.7. )  BdPL*»0.1 02* (PRAnol**?) 
1p9.08*PRAN0L+?2.6 

TF (PRANDL .05.7,)  flDPL-5.16*RRANDL+58.9 

jF(TAII?M(  t).NE.O.O)  pPANDT*.4187*M  .-EXPt-RLV/ (?6.*VI EC0S/DEN3 IT* ( 
1ABS(TAII7N(I))/0EN?iT)** 

1 (-O.5) )))/, 44/(1. -EXP^-PLV/fBDPt /SQRT(PRANDL)*VISCOS/OENSTT*( 

1 AP  S ( T  A  U  7  N ( I ) ) / 0  F  N  8  T  T ) ** ( — 0 . 5 ) ) ) ) 

TF(TAII7N(I).EO.n.O)  PRANOTan.Q 
j  *  < K  ASM. EO .0 )  60  To  7«6R 
IF (KASM.E0.7)  GO  TO  7068 
Te(N ITFP.LT.NOUMR?)  GO  TO  7968 

I'< J.LT. ( JG-4) )  PRAN0T*AK7(T.J ) / ( AK D ( I » J ) ♦SM ALL ) 

7968  CONTINUE 

G»T(!,J )»visCOS/PRANDI P(visv(T,J)-VISCOS) /PRANDT 
3372  CONTINUE 
C 

CHAPTFR  4444  BOUNOART  VAIUFS  FOR  THERMAL  OIFFUSIVITV  4444 
C 

DO _  1  (11 9  J*1,HJK1 
G«T(1,J)«6MT(NTM1.J) 

imp  g*’T(ni»j)»gmt(2#j) 

00.1020  1*1 *  N I 
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1U?0  G*>T(  I  #H.I  )*VJSCC$/PHANDL 

IF(TlFuSC.EQ.P)  GO  TO  9191 


r*  CaLCI'LATTON  of  ffffctivf  viscosity  for  thf  * 

C*  1-0  PEGION  (  CO°F  RF6I0N)  OF  THF  SOLUTION  * 

r*  domain  * 

r 

CMAPTFR  S  5  *  CALCULATION  OF  EFFECTIVE  VTSCO«ITY  FOR  THE  1-d  PFfiTON 

C  .  .  . 

C— — -|  OCATTON  OF  POINTS  »M  01.' E  D  1 1I e  N  S  I O  M  A  |  EYTFNSION-— ------------- 


PinCj1D+4)=PA4.S*0Yr(?,4)40YC(2,3)*OYC(’»’) 

PlU(JlDAl)*°A*.E*DYC(2/T)40YCf2,?1 

RlU(J1D4?)»0A4.5*DYC<‘*/?) 

p-U>(W10*1  )»PA 

RlO (1 )s0.P 

DO  US?  .1*7, *10 

pit.  (J)»pio(J-1)4K1o(i.iD'H)/floaT(nid) 

4*?  COIJTJNIIF 

i  l  P  F 1  (M*il»FVIS 
W.I'IF  0*Uj4K'1  0 
Ml D?*U1 0+? 

Ml  Dlaf'l  D4T 

fi  dm  ,1  )*n.r 

DO  S41  II*I»5 

MOM  »IT)*FlD(?«in 
S4T  CONTINUE 

IFMHOTM.Eu.l  )  R<)  TO 

IJO  ASA  T  I  *  I  »  5 

FI  I)  (M.INFM,  I  T  )■  0  .il 

n*4  fO.ITIMttC 

7AX  CONTINUE 

no  QA7  .la?, nit 2 
T  e  (A'TTfr.fo.I  )  visioi  OsVISCOS 
TE(riTFP.OT.I)  Vl*1PLn  =  VT*1P(.l) 

T F < 1UOTH.NF.0)  00  TO  *993 

liUDYJs(F1D(  J*1#?)-MM  J  — 1#2))/{P1M.I4l  )-MD(J-1>) 

Ol  V  ■  R  P  {  7  ,  N  J  1-PI  P  (.1  ) 

Tf  (TLFHSC.FO.O  r.O  TO  417 

»L  V*.A1.H7ARL  V*  (1  .-EXPf-Rt  VAfSOPTf  OFNSIT)*SOPT(  ABSITA'lZMT  )  )  )  / 

1 MsrnS/7o.  )  ) 

TF(P|  V.PT.RVW)  PLVsPYP 
-is  C  0,*T  I  >*t|F 

VT  Si  I)  (.1  IsOENsI  J  API  V*pt  V*APS<0UD*V>AVJECOS 
(,o  TO  3<iV? 

TV01  ro.JTTIJHF 

T'(N'TTFP.LT.IiO(|PR7)  go  TO  1<M5 
TF(*ASM„F0„7)  GO  TO  3°d1 
I F  Or  ASn.FO.P)  GO  TO  1®8S 
I  F  (Pr AUDI.  ,F0.r.7j«)  APHC«0.Pl)P1 
TF(pnandl.E0.7.P3)  ALPC*n.0Pl)1 

M  *  A  <  J  )*AKnC*  <  Fl  0  (.1  »3  >  /  f  Fl  D  f  J  »4  14SMALI  )  1**?  'M  0  f  J  1*  f  2./?.*Fl  D*  J  * 
1  M 

1AF10(J#1 >**?)*< n D(,  14  1,5 )-F1D(J-1*51)/ (Pi O(JTI)-PIDfJ-l)) 
FP.|nY*(Fir»(.|4l,1)-FlDF.(-1/11)/(P10(J4l)-RlO(J-1>) 

F1P(.1 1«PR00O(  J  )  /  DENS  IT 

FYKfaAKFT* (1 .-AX FT*AKF*F1PA( J 1 ) / ( ( 1 .-AKFT0*AKCT0*F1PA  O) )* (1 


1  A*'  FTOAK  F* 

1Fi«A(J)WAKFT0**2*(F1o<.f,T)/<FlO(J,4)«-sf,AtD)**?/Rin(J)*F10(J,n* 

1F0IIDY) 

F’lCfKJ  >«FlKC*2./i.*n  ,-AKF  /  (FlD(  J  »4)*SMAU  )*FTP<  J  >  >  /  <1  .-2.*Fl*Af 
1  J  ) 

IwFlKCAAKF/  (MD<  J  ,4)4S"ALL)  ) 

MRVT(j)  s”  f  1  tCB(.l)*FlDfJ»3)**?/  (  FI  ftC  J  ,4)+S*aIL>*(  Fl  D<  J  +  1  ,5)-F1 B  < 
1.I-1,S))/(P1'»<J*1)-R1D'J-1)> 

F1KP«AKF*  (1  .♦  AKFT*AKFT0*F1KA  {  J  ))/f1.-AKF*AtCFT*F1KA(.l))  +  (AKF*A»,FT* 
1  AH'FTo**? 

1*F1)f  A  (.1  )**?*AKCTD*n  .-AKFT*AKF*F-|KA  (  J  >  )-AKF*AKFT*AKFfB**3*F1KA  (J  ) 
1  /P1f>( 

1.(>*F10(J/1)*FPtlf,Y*<Fln<<l/3)/{F1M.I#4)  +  SF,AIL))**?)/C.-At'FT*AKF* 

1  F1  K  A 
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TE  (  J.F0.NJM1  )  0YU«DYE*.?5*<PVC(T/.I-1)*DYC(I  +  1»J-1>) 

I>|||)FT*=(  .5«(|l  (I*1»J  +  1'+ti(T»J+1)>-.5A(ll(T'f1,J-1)4|l<I  ,  j-1  ) 

1  )  VPYN 

fFE<  J  >BCCFO>*Al*A?*pTj<*PTH*f>»ioFTA*viSE*APFAEW 

Dwoxi*(u<l4l,j)-lj(I-1,j))/<0xFpti4.2**rDyCM4l,j)4Bxf(T4l,j4'i) 

1*BXf (I-1,J )*0XC(I-1#J+1))) 

C.ff  f.l  )  af  C  F  (J  )*a1*pihavise*owox  i*a#eaew 

k1».?5*{l)RDYl(J»J)*DpBXY(T*1/.l)*'DPDXl(I»J'M)+0p0Xl(T*1»*l  +  1)> 

B?a.?S*<DPDFTA<I,.l)4D»DFTA<j4l,.l)4D»DFTA(T,.l4l)4DPpFTAfT4l,j4l  )> 
CYE(.l)orcF(l  )-PTH*PIH4Al*A2*VTSF*PYBX  O  »J  '*ARFAFU*VF 
crf(j  )*f  CF  (.1  )4pTH*PTH*Al*A  1  A  VJ  Se*BXB  Y  <  I  »  J  >*ArFAFw*\/F 
HYnRP*.?5*{HThB(I,J)4MTHB(l4l#JWMTHR(!,J*1)4HTPRfl41,J4n) 

C<"F  (  J  )sf  fF  C  J  )-VTSF*APFAFW*VF*B2*HTHBP*HTHPP 
DwuXU*(VCI/J4l)-VfI-1*J4l))/UXrf 

OYOXNF.OYDX  <  I  ,J  )*<1  ,-WFN(T,.l4l  )  WBYBX  (I  »J*1  )*VF*(T,.U1  ) 

rjY,,X  IWaPYOX  U-1  »  J  )  *  (  1  •“!•>  FF1  <T-1*J4l))4f>YRXfI-lAj*U*MFN(I-1»J4l) 

uFFM«nxr (1-1 ,J41 )/ (Bxr  < T  — i ,j4l )40xc (I#J41  > ) 

OVjX'ysoYnXiJF*!*  F  FM40  Y  0  XllVi*  f  1  #**W  F  CN  ) 

liYnY:jFaI>XDYFl»j)*(1.-WFW<T/J4l)>4f)XBY(lAj4l>AUFF(T*J  +  1) 

Dxny.juaOxD  Y  <  I  -  1  )*(1  ,-uFw<  r-1  /  J4l  )  >4f>x&Y(I-1  f  J*1  >*wFt'  <  I-i  ».l4i ) 

l)XnYi4S0XDYi.F«WFEi44nXi)YNW*(1  ,-WFFN) 

WFFVaOXF  (  I-1/J4l)/(pX'-<I-1».t4l)ADXC<I'J4n> 

V»»V  (T,.l4l  )4.FEV4V(  J-1,.l4l  )4(1.-WFEV) 

Ilf  BP  (  I  ,  J.1  )4WF|I1)4>I(I  ,1  )*(1  ,-WFIJM) 

T'U.FO.?)  WF1.ISaO.il 

TF(T.RT.?.A>'O.J.GT.?)  WFil«a.S*(WFM(T/J  )4ueu(l-l  ,j  )  ) 
IE(T.PW.?.AfO.J.ftT.?)  wFHSaf)Yr{»,J-1  )/cnYF(  T,J)4DYCU,J-1>) 
|l«a|t(T.J  )4WFllS4H(I,J-l  )*(1  ,-WFllR) 
rr.4av/TsN*ARCAN*  (  I)  V  D  X  N- Vf‘*C  Y  P  X*I-"N*  D  X  0  Y  M  1 

aispftabf ( i,j4  n 

WWRalCl,.|)»n.-WFW(T*.l4l))4W(I^.I4l)*WFNfI»j4l) 

W«ysj(  1-1  /  J  1  *  (  1  ,-wFW (T-1  /  J41)14M(T-1,.|*1)*WFNYI-1#J41> 
1>Wl)XIa(VMF-WNW  )  /OXfl 

TF(J  .CO.WJM1  )  pWDXTa(M(X,.|4l)-U(I-1rJ4l))/0XN 

rr,4arr,M4piH4Ai4viSN*owoxi*ARFAij 

A?»PXTDF(I#,l4l) 

•yFilMFaovc(j41#j)/(DYCFl4l.J)4DYP(I4l«J4l)) 

'jF,»KyaoYC{I-l,J>/(DYCM-1/J)4r>YF(T-1,.l4l)> 

|iPEa.|(T4l  ,J  l«(1  ,-WFHWF)4ii(l4l  ,J41  )*UF"NC 
IIMUaiK  1-1  f  J  >*{  1  .-WFHrtw)4|iCI-1  ,  J41  )*VF<'NV 

DliDXIadi.jF-HHW)  /  (BXC  (»/'j4l  )4UXC  <1-1  .J41  )  > 

rFiJ*CfM4Al*»24PTH4PTH4l,liOXX*VTSw*ARFAN 

H 1  ap  Y  B  X  “I 

P?bOXDYm 

frll«CCw-P  IM4Pln*A1*>]4VISfJ*ARFAf»WW*fl1 


K'»PIH*PIH*A1*A2*VISK'*ARF  AM*VN*8? 

er'J«cCJ“Al*uiSN*A»FAN*VN*HTPH<I»J+1 >*MTHR ( I*J-M)*PR0ETA<J»J'MW*2 
r>|lf)FTAM*<ll(I»J  +  1  )-ll(I,J  )  )  /  (.St^YC  (  T  ,J  >*DVC  <1  /  J-»1  1  )  ' 

0''0Xl>s(U  (  I,J)-W(I-1#J))/UXD 

ffod  #j  )»vhd*ape*oii*owoxb 

Cd(I,J)«('.e 

*••<  I  *  J  )*stt(  I»J  )*CCO  <I*J  >-rei'*f  CM. I  >-CCW*CON-CCS 
VTSP"VIS(J»J)*WFE(J#JY+VIMT“1*J)*(1.”WFE(I»J)) 
0FNPs.5*(DEMT,J)+DFM1-1,J)) 

l>»nYP«0X|>Y<T*J)*rfFF<I»JWftXf>YfI-1#J>*(1.-WFF<I»J)> 

nY0YP*0YI>X(T»J)*UFF{J»j)-*’CV0X(I-1»j)*M.-'WFF(I».i)) 

V/w*.<>* (V(I-1 ,J*1 )*V( 1-1 ,J )) 

DWDXP*(VE-V'j)/OYO 
oimvp*  (iiN-U<)  /OYC  ( I  »j  Y 
</P»VF*UFF  (  l/J)+VW*<1  .-WFE  <I,J)  ) 
iio«ii  f  T  #  J  ) 

vo|.«.S*(APeAXY<T/J)*A»F»aY{I-1,J>>*BZC<1> 
SI'(I,J)sSI'(T»J)*VTSPxfDWDYP4  0H0vH-YP*i>YftXO)*DY0YP*VPL 
sp(t,j)*s°(  j#j)“VlSP*nxi>YP*f>xnYP*V(H 

UIFFV»OXC  fI-1#J)/(nXC(Y-1».l)  +  0XC<l»J)) 

v«»w  n,j  j*ijfev4V<t«i  ,.i  )*{i  ,-wrew) 

DiijYPs  (  VW“  VS  )  /  OYCO^jY 

SI'(J»J)*Sl'<T'J  )  “2  •  *  V  I  SP*  0  V  0  VP*0  Y  D  X  P*  YP(_ 
SP(T,.l)*SP(t#J)-2.*VI«P*OYOXP*DYDXP*tfPL 
Sl'(  T  »  J  )»SH<  T  ,  J  )+OFNP*wP*VP*nYPXP*»/OI 
sn»rF*-DFrjp+vp*r>xr>YP*'M)i 
SPIsAPfNI  (  SOP  C  E  »l).  ) 

Sl'IaSORf  F-SP1 
S"CT,J)«SU(T/.I 
SP(T,J )=SP(T,J )*SP1 
ip(PtH.Pd.ll.ri)  GO  TO  T2?<» 

HTHO(J«.S*  (HTMP  (  T  ,  J  )*HTMO  (  I  ,.!♦!  )  > 

A«ia.S*(0Xn)P(I,J)*0XIf>F(I,J*1)) 

Pl*.S*(OKOXT<!«.i)*OROYI(I#J  +  1)) 

»Aa.S*(PFTAOF(i/J>^OFTAPF(l,Jxi>) 

p?s.S*(OhDEtA(J»J)*PR''ETA(I#J*1>) 

UPsW  Or  J  )*JFF  (I  /  J  )*W(T»1  ,.|  )*(1  ,-UFE(  I»J  )  ) 

SO(J»J)  =  SP(T'J  )-<-HTHOP'»HTHBp*p?/(pTH*AF)*pIH*AF*0X,'YP-PlP**6'* 
1pY|)XP)*(prH*AF*0X0YP-PIM*A<>*DYf>v^.HTHRP*HTHPP*R?/fP7M*A,!))*VIRP* 

1  VO  I. 

OMOXP«.5*(iia  +  1»J)-ll(T-1,.|))/(.25*(DxC{I»t)'»DXCU#J  +  1)+fiX(‘( 
iM*jw«xr(!»i,j*D)) 

i)W  i)XPs  (W  (I#. l)»w(I»1»jY)/(.2S*(|»»C(I#j)*PXr(T#.  I  ♦1)*DXCfI“1»J>* 
iDvcn-i/j*i>>) 

wFEn«oxr  (i-i  ».i  +  i)/(nxr(T-i,j*i)4Dxc(l»j*i>) 

OPal.’ijF*wFE(J  +  WNb*  (  1  .-h*EM  ) 

IVCF*V(I  »  J  )*WFN  (  T,J  )■*>  (  I  »J-1  )*(1  ,-UFN  (T,.l  )  ) 

UFFSsnXf(I-1/J)/(DXr(T-1,.l)*DXCfI»j7) 
tt«»gsF*UFFS  +  W5k.*(1.-WeFS) 

DW,)YP*(WiJ-US)  /DYC  (  I  #  J  1 

S"(T».l)«Sl'(I»J)-(-.lTHPP*HTHPP*P’  /  (PT8*A^)*PtH*A**0Xr|YP— FIN*A6* 
inYi)yp)*vol*fDFr,P* 

ijP*VP-VTSP*fU'JCYp4PTH^A,;*r>V''XP4.PIM*Ao*0Wl)Yp)) 

T?7<.  rO.JTINIIF 
i r i  ro.iTftJiiF 
10ll  CnOTTNllF 


r 
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r 

r  A  I.  I  "(Mill 

C 

{■haPTFR  3  FIMAL  CPE  FF .  »S3EI*BLY  A^D  RFSTO'UI  SOI'RCE  C  *  L  P  'Jl  AT  J  ON 

r 

on  TOO  T*2/f'IP1 
on  3.11  .1*?, HJM 

A“(T»J)saP<T/J)  +  AI»(T».I)  +  «N(I/J)  +  AS(T»J) 

1  4»F  (  T  *J  >4*»Jf  I#J  >“$•»*!  *J  > 

D'l  (  T  ,  J  )S0II  (  J  )  /  AP  (  T  ,  I  ) 

1  AP(T».I  J*1  )^*S(I»J>*I'<T  /  .I-1  )♦ 

<A«»<T#.l)*|i<I#J>4SllCl*j' 

»PSt'(I/J  )*(*rsop 

vnt».5«(APEAXY(T#J>*A»E»XY(I-1»J)>*»2r(1> 

snpv<»i.s(;I»PAT*voi. 

tf  <«SP(  j  ,.|  ).C,T.n.S*SCBVPl  Y  PeP(>P*PESo»/50BVPL 

f  *<--?»  <1,. I  ).6T.''.S*S()PVOl)  PESll(!»J>»PF«Un»J>/sOPVnL 

IP(.I.PO.?.A»'D.f'TTFH.CC.*'AyiT2)  RO  TP  AS1P 
pFSPPl'sPF  StlPU*  APS  (  WFSPRY 
am.i  r « f j t i r;  1 1  f 

pesr  <  I  ,.l  JsHFSIK  T/ J  ) /V"L 
f— — IHMPFh-PFi  AX*TT0*' 

AP(T#J)saP(T/J)/II®FH 

S"(T«J)  =  SIKT»J)*(1.“l:8F")*AP(T'-,)*U(I»j} 
l>"(T»J)»0>’<T/J)*.*PF0 
TP  1  cn.JT  IWlIF 
TPfl  CPiiTTf'lip 

on  34T  I*7,MI»1 
l»n  34  T  ,|s?, rjM 
AW. IM  >.l1aAN(I>J) 

A«H(I»J)=AS<I#J) 

AFim».i)sAen/j) 

AUll  (  T  '  J  ):>•!(  I  /  J  ) 

AOitn  f  J  Y**0  (  It  J  ) 
a  •  *  1 1  ( i  /  j )  a  Aii  n  /  j ) 

<43  APi»ri^j)«APn^J> 
f 

ri'A"TFP  4  4  4  SPIMTTON  PF  OlFFtPC»'CF  FtHUTin.l  4*444 

r 

fF(f  iTpP.Cf.FiAxTT?)  pPcnw()FX)=P.P 

IP<PITfP.P.F.I  AXTT?)  I^tRsT 
TF(WTTF9.LT.IAXTT?)  IVFG=1 
on  4iiP  w*1,fiSWPU 

iF(rj-r-T.i.ANo.i»TrFp.GB.',,AyiT7j  ti-;fg*i 
411P  C  *1.1  1  lSOLVf?»?*rJ!»NJ»IT#,lT»U> 

tF(».  ITFR.GE.IIAXTT?)  A  c  S0Pti«P  F  3o»IK  S3  C  C  I  Ml>e  X  > 

PPTI'PW 

FW  () 


SllflPOHTIiJP  <“Al  C V 
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r 

Crt‘1fOM 

1  PFSORII,URFU,RFSPPV,l<RFV,R*SOP",PFSOPU,UPFW, 

1  ilPFP,PES0PT,IIPFT,Pf$0PK,URFK,»E$09D»LIPFP, 

1  RFsii(?5,25),PFSw(?5,25),Resu(?5»?5),ftFSf'(?5,25), 

1  D" <25,25 >,uv (?5,?5 ) ,dw <75,25 > ,u (75,75 ) ,v  (75,25)  , 

*  U(?5,’5)»P<?5*25) ,T<?5,75',Tfc (?5,?5V, ED <25,25*, 

1  pp (75,25), OF" (75,75), vi«(?5,?5), am (?5,?5),af(?5,25), 

1  AF<?5,75),AV(?5,25),At'(?5,25),AD(?5,75),CF(75),fD<?5,75), 

1  CCE<?*>,CCD<25,»5),AP<25,75),«ii(75,75),SP<ZS,?5)»l))ie<75,?5) 

1  OVC  <25,25  T»P7f  (A),uFfc(2S,‘>5>*MFN<-.5»?5)»*FDUT, 

1  ARC  AXY  (25,?1?)  ,F10<5r  ,5),N10,W!"FAJJ,I*IOFX,HVDni  A  ,PAP  ,P1  n  (5n>  , 

1  VFllN,TJF,TWAU*FLOWIW,<;RFAT, 

1  !IBFVIS,VJSCOS,DF|JSiT,PPAm*T, 

1  PPTF,PRFC,Cni,C''T,C1J1,C7l,CAPPA,FIOC,AlAMPA, 

1  "SwPlI,  NSWPV,  f;5i/PJ,  NSUpP,"SWPT, 

1  «S JPK , W  S  w  P  D , 

1  IPPFF,JPRFF,KPpeF,IKOft)S 

rmiPoN  Tai.'X5<25),TaUXn<?5T,Tamz«(?s),tamz>i<?5>/ 

1  YPl"SF (75) ,VPI u«M(25) 

1  ,IT,JT,M,U.I,NI“1,UJM1 

«  ,  SWET,  Fl  PWTOT,rPV,OFLllX,FLPWT 

1  , Ml ,  "7 

1  ,PA,RD,THFTA,AH.UPD7,FLPwAX,DXIPFf25,?5) ,DETAOF(2e,?51,“IH 

1  ,0*0X1 <75*25 ) /SPORT A  <’5 »?5) ,hThp< 75,25) 

1  ,PJ , WIN, Ft OUW 

1  ,S.iALl,S0';!S,SI't-'',TNliMP/nxi'YC25,?5),PYDX(2,:,?5' 


IFVFI  2, IIH 

CftMPi>P/PLK?/im  (75,25 )  ,VV(75,25),Amii(25,?5',a$ii(75,2F), 

1  AF II  ( 25,7  5  ),  A  J"  (75, 75),  AD"  (?5,75),  A  il"<?5, 25), 

1  A"V(7S,?5),ASV(?5»75),APV(25,?5),AW''(?5»2*>)» 

1  COnT  (  7  5 , 1  P  )  ,V/Pfj(?5)  ,JYS, 

1  APV(2,;,75),AIIV(R5,75),AA(75) 

1  ,  .IF,I""TH,TFP<75,?),cOP(7S,?) ,pp«on(50) ,REMN(7F,75> 

1  , pB«mi|  ,r.;lT<75,2A),A»'ilfr 

1  ,PR»>p(25,?5),Ak'7  (P5,25),Aru(?5,75),AKA  { 75,25  ),PVT  (2«,75)  ,»r  F 

1  ,AYFT.AKFTe.AKfTr>,*1P(75)»F1YZ(2r),F1Kn(?5),F1YA(?5),FlRVTF2F) 
1  ,M"|||1P,CMIA  (75  ,75)  ,CMIIP  (21 ) 

i  ,;jo(ir'R7 

1  ,  APII  (**5,25  ),APV  (25,7  5) /PP(  25,75  ),AiiRL  (25,2  5) 

1  ,PA$it,f.’A  S" 

1  ,VI  RV  (25,75)  ,VA '25,75)  ,VB  (75,25)  ,v>c  (75,75) 

1  ,°SC (5 ) , IMEB,yay  IT? 

1  ,RPS (?5 ,25 ) ,PPS ,»TTFR,rtAXTT 

1  ,TLEW«C,VIS1U(5P),XPLI (?5,?5) 


r 

CMAPTFR  111111  A  S  5  F Ydl Y  OF  r OF F F I f I F N T S  111111 


PFSORV«P.P 
OP  49  I«2,WTh"1 
DO  49  .|*X,M.IF’1 

r>Y08.?5*(f>Yi*(l,J)'*-0Yc(I,J-1)5’nYr(T  +  1,J)*DYc(l*l*J-l)) 
A  PF  A  Oils.  5*  (  rtPFA  YV(I  »J  l  +  apFAXY(I  ,J-1  )  ) 
i;o.)«oF"  (  I  ,  J  low  (  T,  J  ) 


CB(T*J  )«n.5*(POM  +  (;OS)*APF#OI« 

VTSD».S*(V1^(I»J)4WTS<I»J-1>) 

OTO«VIS0*ARFAeii/(.5*DTC<n) 

A*(T#.I  JaAHAXl  (*F0  (1  )*ru(j  ,j  )  ,-(1  ,-HFDf  1  )  )*CD  <  I,.l  ),DTO) 
i-wfnd)*ct>(T/J) 

Anv(l/J)aAD<T,J) 

PtJi)YB*(W<  1#J  >-fc  '  >/DYD 

CCDF  I,J1aVIF0*APEABtl*BUPYP 
CCO(I»J  JsP.r 
/.»  r^wTimiF 

D«  SSI  JeJ,II.IH 
I»1 

OvF«.<;<r(DYCd*1»J'4<'Yr(T4l/J-1)» 

AOEAFWsPYFaBZC  <  1  ) 

fiES*.5*CUFun  ,  J-1  >4PE*'(l4l  ,.i-1  )  )  *11(1*1  ,j-1  ) 
CF<J>*ri.5*<F£>4fiE«)*A0FAfW 

VTSFaVIJlV<I,J-1>*BXr<**1,J>/(&Xr(T,.l)4oyC<I*1,j))4VTSV(T4l,.l-1) 
<I».l)/(nxC(T»J)40*C(l4l».n) 
BTE*VISF*ApeArw/(.5*(PXC<!,.l)4l>vC  (1*1 

uF=r.s*(*j<i,j)4u(j,j-i))4„5*<w(T4i,.i)4-wn*i'j-i>n*.5 
BF|J*3.?S*(DFn(I  ,J  >40  EM  (I  ».l-1  )4DFm(I*1 ,J )4«FN<  T*1 ,J-1 ) ) 
C1*.Z5*(0*X"Fn4l,.l4lUDX!DF(l4l,.l-1)4?.*ft](TI>f  (t4l,J)) 
r.?ar1*PIH4  0P(iP4WE*APEAEW 
C.f  (  J  )aCF  (  J  )*C? 

Claf  1 

r4sniF»C1*PlH4C^*PIH 

MFaDTF4C4 

UPWFa.5*  (WFP  (T4l/.l)4UFfc(l4l  ,J-1  Y) 

AF(T,J)*a"AX1  (WFVF*rEFj)/-(1.-W»VF)*CF(J)»DIE)-WFVE«CF(.l) 
ACv(1,.l)aAECI,J1 

.  bl'DVEa  (11(1  +  1  ,J  )-U(I*1  ,J-1)  )  /UYE 
OVuYlJFanYOXr 1/ J>*<1 .-UFF(T4l ,J ) 1+DYDX ( 1 41 »J )*WFF (1*1 , J  ) 
t/V-OYSPaOYOxn  #J-  1  >*(  I.-WFF  <  T  +  1,.1-1  )  >4By«X(I*1,J-1  >*WFF  (  T*1  ,J-1  ) 
nvoyFa.5*(DVOXAF4DYPX^E) 

OXi>YiJFaAXPYf  I  /  J  )«n  .-«FF(T4l  ».» )  '4»>XPY(  J41  ,j  )*wff  (  J4l  #.l ) 

l>  X  D  Y  1F*0  x  B  Y  (  I  /  J  —  1  )  *  ( 1  W FF  (  T *1  , —  1  )  )  *B XB  Y  (  I  *  1  »  J  “  1  >*uFF  <  T  4  1  ,J-1  ) 
DXn'FFa.5*(nVDY1JE4PXPY«E) 

VFaV(l4l,J)«UFvc4V(T«'l)*(1.~WFVF> 

|lFa.S*(H(l4l  )4U(|41  ) 

CfE(.l)aVISF4AOF»F«J*(P"DYE-VF*PY''XF-nF*DX0''E) 

Alafl 

WMF*H(I+1  ,J1*WFF(j4l,|)4j(I,J>*f1.-WFF(T*1,.l)) 

JlE*'v(I*1  ,J-1  )*VFF  (T4l  ,.l-1  )4H(  I,  J-1  )*<1  ,-<-'FF  <T*1 ,J-1 >  1 
D“uFTAa(uME-WSE>/PYF 

rrFr.i)srrF(.i)4Ai*piM*i/i<;E«ow»FT«*Al)FAFw 
iJFVFiFa.5*(wFFU4l,J  >4'TF  (T+1  ,.l*1  )  1 

I  «  (.l.r.T.3)  9FVFFa.54{'JFF(T+1»J-1)4»FE(I4l»J-Z)) 

TF(J.Fw.i)  u  F V  S  FauF  F(T+1,1) 

VlaV(t4l  ,  J4l  )PWFV»'F4V  Fl,J4l  )*(1  ,-HFV.XF) 

V?»W(l4l , J-1 )*wevfif+S < I, J-1 >*( 1 .-WFVSF) 
i)  V  ■>  Y  F ■  (  V 1  -  Y"*  )  /  (  B  Y  f  <  T  4 1  )40yC  (  1*1  »  J  - 1  )  ) 

KlB.;>5*(BFTADF(T4l,j4t)40FTABF<T4l,J-1)42.*nETABFfI*1»J>> 
l»?a.?S*(i>PoFTA  CT*1  ,J*1  )*i;PDFTA  <  t*1  #.i-1  )*2.*«>«PETa<  1*1  »  J  >  ) 
rCE(J)aCCF<J).*FIrt*Al4'<I«F*APEAE,F*FPTH*01*PvPYF-PIH* 
lAl*BXPYF*HF4PlH*ni*IIE*0Y0XE) 
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rrMj>=rCE(.l>*VTSF*APCAFW«UF*MTHR<I*1  »  J  (  1*1  r  J  >*P? 

0VDyE«(V(T  +  ^J)-V<I«J')/(.5*(CX',(I+1.J)-K>XCU^n> 

Sil  r^UTTMltF 

i tin  t=?»wipi 

j«? 

DVWs.5*(i)XCf  J»J)+DXC(T,J-H  )) 

AOFA,MSDXN*07C  ( 1  > 

g»xpfm  <  i  fj  )■* .5*  (v ( i  *j*i  )*v<i#j)  y 

CN«F!4*A  °EAW 

VTSH»VJ$(T/J) 

DV>JPV«.5»(pVC<I»J>+''YF(T+1»J)) 

OTUsVI  S'‘l*ARFAN/nYNPV 

f1s.?S*fOFTAoFC!»J)+0FTADF(I^1»l)*DFTA0F(T»J+1)+0FT40F(I*1».l+1)) 

C?snFf.'(  I  f.\  >*W  <1*J  )*AHFaH 
f  +  «PIM*C? 

C“>sm?5*(  0  F  T  A  D  F  (  T*J  J'ApFTADF  (T+1  /  )+OFTAOF(T,  J-A1  )*0FT*PF  (T  +  1  ».l*1  )  ) 
l>  T .  /  =  D  7 1 J  +  C  !X 

rJTij«Ar,AXi  (dTi.'#-.5*C**»5*C»o 
A m  (  T  »  J  5*04 

ANV(!»?)*AUU#J) 

0VDYM»<VCI».»*1>-VfI*J'  )  /OYUPV 

OY0Xf/»|lY0X(T,J) 

fr'l*VISfJ*ARFAK*(OVDYN  +  2.*|l,4*ftYDVN> 

OW|)Y :<»(.5A<W(I#J-»1  )*fc  ))/DYM®V 

A4  =  .?5*(DETADF(T,.l)*0FTADF(lt-1,l)  +  DFTADF<T,J*1)  +  DFTADF(T4l,J+1)> 
rrN=CC:J  +  AA*PIH*  VI  S(.-*A®{  A. MApWpYH 

VMFlsv(I*1 #  J )*wFF (1*1 »J-1 )*(1 .-WPE  f 1*1 *J-1 7 ) 

<jcEN=r)xr  <r,.ui  i  /<nxr  <t,j  ,1  )+r>yc<l*i  #J*l ) ) 

YA'F?=V(  14 1  »  J4l  )*'.4FFN4V(  I  »J*1  )*(1  .-a  FEN) 

V»'F«.5*(VMfcl4Vl.E2) 

VWy1aV(T,J)'»V-FEfI#J-1Y*Vn-1,.l)*(1.-JFEfX#J“1)) 

•jFFNaDXr  (  I-1  # J4l  )  /  (OXr(T-1,.f  +  1)+DXC(J'J*1>> 

WK'U?  =  V<I-1  ,.U1  )*(1.-W'EN)4Vf  I,J*n*’JFFN 

V«J*.^iir(VNUl+V:.'J2) 

OVnY|J={  VMF-VNU  )  /DXM 

A7s.?S*(jXlPFfI#J)Y''XT0F(T  +  1,J)40YIPF(I»j4-1)4.nyr0F(T-f1,J-»1)) 

A«  =  .75*(OETADF(T,.l)  +  OFTAnr<T4-1,.l)*OFTADF(Y,.l4l)*DETADt(I*'’<'.l+1)> 

»^«.?F#(Di»|Jvj(i,j)40BhxI(T*1»J)*OPOYI(I»J*l)*P«nXICT4l/.l*1)Y 

(jps^^^nfOPOFjA  ( I  ,  .1  )4Doi)FT*  (  7  *1  /  J  )*&PDFt*  (  Y  »>'  )*PPOFt*  (  T*^  /J+1  )  ) 

rr'J*Cr,J*PIH*AF*VISH*AOE»f'i*<PIM*A7*PVpXt,-PTH«A7*IIN*0v0YcI,.l)  +  PTM* 

1  AB*t'.4*DYOX  (  I  #J  )  y 

rr  i'«rrrj4VTSf'*ARFAN*H;j*r?*A3/A7*uT*jRP*HTP»® 

DO  llll  .(«•?, ►•JPI 

r >— — — —  CoH«"TF  ArFAF  amp  VOl  I'VE - - — - - - ---------------- 

l)XI4S.Sw(  oXC  f  I  *  J  )  *•  f>  X  C  {  Y  *  .1  ♦  1  )  ) 
r)VF«.Sw(l>YC(I'»1»J)YPYr(T+1#.l-1)> 

i)YD».7S*(0Yf(I/J)+0YCfI»J-1)4’PYr(T+1/J)*DvC(I  +  1»J-1') 

A»FA  4SOXI4*0?C ( 1  ) 

A°FAFW»f>YE*f'Zf  ( 1  ) 

AOfAnils.5*(ARFAXY<I»JWARFAXY(I»J-1)) 

r - C  A I  CHUTF  COI  VEfTIOX'  COF  F  F I  F  I FNTS— — - - — - - 

G»>3t>FU(  I  ,J  )*.5»  (V(  I  ti  >♦*/(!,,  14-1  )  ) 

(  0 F (  I  »  J  )  *  (  1  »“V  F  u  f  1  )  )  4  OFii  (  I  »  J  )  *U F P  ( 1  >  1  *'J  {  I  »  J  ) 
G''S«(PF,'Cl»'l_1)*<1.,'wFiini)4DFUfI»J-1)*UFP(1))A 


iw(  r  0  j-n 

KF,j*(  DEN(I,J  >*{  1  .-wFE  '1*1 *J  )  )+DFN(I*1  >S  )*WFF  (1*1  ,J)  >*U(I*1  ,J 
C) 

RFS»<I>EN(  I».i-1  >*(1  .-UFEU  +  1  »J-1  '  )*DE!J(I*1  /  J-1  >* 
luFFf 1*1, J-1 ))*Uf 1*1 » J-1  > 
f  S»fll 

CNsfifJ*  APE  A  H 
CYafFO  > 

CF(.l)»il.5*(KEN4fiES)*APEAEW 

c"*n>  ( i  /  j ) 

cn<l#j  )*n.5*(P0W4SOS)*APFAO|l 

- CALCULATE  OIF  FUSION  COEFFICIENTS - — ..... — - — ... 

VTSF*VlSV(I/J-n*0Xf<T4l,,|)/<f>XO(T»J)4D*C<I  +  1'J>)*VTSV(T4l».l-1)* 
ID  vC  (  I,J  )/  (I*1  ,J>  ) 

VTSI»u*VTS(I  ,J  )*  Cl  „-UFn(1  )  )4VIS  (T,  J  )*WFDC1 1 
VISI>S»V  IS  (I»J-t>*f1.-WFn(1))*VI«(T#.l-1)*U*D<1) 
VTSn».5*(VI«D**viSDS> 

VtSN*VIS(I,J) 

OlOPa.5*DZC  1 1  ) 

®i  orop*ornP4.s*D7r ci ) 

A?  DIO*tfISD*ARFAeil/DZDP 

r)VMPXs.5*(i)YC(l»j)  +  DYF(I  +  1»j)) 

OTfF*Vl  S'Y*ARFAM/nylVPV 
DVFPa.SADXCd^JY 
nyEP»nxFP*.‘;*nxr<i*l,.i)  . 

0  T  E*  V  T  SF*ArFAFS(/uXEP 

JHF*W(I  ,.(>*(  1  „-VFf <T*1,J  )  )*w(I+1  ,J  )*WFF(T  +  1/J) 

W*F*UC  I  /  j-1  >*n  ,-WFF  (T  +  1  ,j-1  )  )♦«(  1*1  /  J-1  )*UFE<  1  +  1  /  J-1  ) 

UFs.S* (uuF*U$E ) 

CIs.^SafoVIOF  (1*1  ,J*1  WPXTuF<I.».1,J-1  )*2.**X  T0F<I*1  ,J  )  ) 

0FMP«.i>5*(0FH(I  fi  >*DEW<  I  »J-1  )*l>F|Jf  1*1  »J  W'EMt  I*1  »  J-1  )  1 

C7aC1*pIH*UFf'F'*Wfc*APE«FW 

CE(.I)*CF<J)*C7 

CTsfl 

C4*D lF*r 1 *P TH*CT*PI  H 
DYF*I)TE  +  C4 

Cla.75*(DETADF(T».l)*0BTAOF(I*1#.I)*DFTADF(T,J+1)*DFTHDF(I*1»J*Y)) 
C?»0FU (T / J )*WCI/J lAApFAN 

r*'*r  n*r  i  *Pi'<*r? 

C7=.?Sw(uftadF(I»J)*oFTAoF(I*1»J)*DFTADFCT,J*1)*DFT»dF(T*1»J*Y)) 

cx*ci*pih*c?*pim*p  r*< 

DTrlaoTIUCJ 

— cal rm  ATF  iiass  source  fop  use  I*'  stabilisation  procfoi'pf - — 

s*psro  <  I  *.i  )-ct'*fo-cs*rF  ( i  )-r w 

COsA-IAXI  (0.r,SPP) 

C  °0*  C  d 

— — - «  SSEVHl  E  MAIN  roFFFIf  IFUTS— - - ——————— 

<DIN/-.5*CN,.5*CF' ) 

A*'(I».I  )si)IIJ-.S*CN 

A«(T,J)s*N(I,J— 1 )+CS 

.JFVF«f>XC(T#J)/(r'XC(T*l)*0*C(I*1»JI) 

AE(T«.l)«fll|*AX1(WFVF*CEO)»-(1.-WFVF)*CF(J)*DlE)-F|FVE*CF(J) 

A  c ( T ,J )*AE ( 1-1 ,i )*CU 
A"(T ,\ )*A9 (7»J >*CU 

AI'(T».')»A'*Ayi(*F0(1)AOD(I»J)#-{1.-JFD(1))*CD(I/.l)»D’0) 

1-uFP  < 1 )*CP  <T  ,  J ) 
i/V(T,J  )«0XCd»Jl*07C(1  ) 
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)s-rp 

r- — ~ c^mpl pt p  Ar,«FPPt.Y  of  source  te«**s- — —————— 

VOl  =  .S*(  a  PE  AX  Y  (  7*J)*ADEAXY(7».l“1>>*f>2CC1) 

r  <-w«crff.i ) 

Cf s*ccn 

C',tl»CCO<r#J) 

f>U|)YOsOJ(I#.')-U(I»J-1  ')/UVO 
cro  (  T,.n«VZ<n*APFADH*PWf»YP 
cpof T/j)sn.r 

1)110  VFa  <H(  I  +  *  ,J)-,lfI*1*J-17)/DYE 

t)V|)X  JFxPYOX  PI  ,J  )*n  .-«FF  (T+1  ,J  )>*nYPX  (1*1  )*WFF  (T  +  1  ,  J  ) 
DVdXSF=DY"X  (  I  »J-1  )*M.-WFF  (  7*1  ».l-1  )  )*l*Yr>XfI*1  *  J-1  >*WFF  (  7*1  /  .I-1  ) 
OV|)yF«.S*(Ovl)Xl.  F  +  PYPX*8i 

()Yl)YflFaOXnY  f  I  ,J  7*fl  .-«FF  (T+1  ,  ,\  )>+OX»>Y  f  1*1  ,i  )*UFE  <1+1 I  ) 

D  V  d  Y  S  F  a  D  X  0  Y  f  I  »  J  “  1  )  *  (  1  .  “W  F  F  (  T  ♦  1  » .1  “1  )  7  ♦  0  X  0  Y  (  J  ♦  1  *  J  •  1  )  *  W  F  F  (  7  ♦  1  »  J  “  1  ) 

OYOYFa.S*  <  UVOYl^EaPXPYSF  ) 

VFaV  (  I  +  1  /  J  )*l'FVF«V<  T  ,.l  )*  (1  .-WFVF) 
jevUa.5*(WFF<I/J)*WFfcfI,J-1)) 

VU«V  (  T  »  J  )*V'*VW  +  V  (  J-1  r.t  )*(1  ,-UF\/V») 

HFa.S*  (H{  T*1  #J  )*lina1  #J-1  )  ) 

iigS.5*  ("(  1/ )  >  ) 

CCF(j7aviSE*AOEAEU*(OiiOYE-VF*PY,'XF-1IE*DXDYE7 
Ala.?S*foXIf'F(Ia1/.lalWftXTuF(l4.i,.l-1)*?.*nxn>F(T*1,.t)) 
0u0FTAa(WF*E  —  RSEJ/DYF 

fCEf.l)«rCEC.I)  +  A1aPrHa(iISE*(MinFTA»ApFAfW 
JPY1  1:.S*(iKKI  +  1  ,J  )4'JFF  <1  +  1  ,J+1  )  1 
UP</1  ?a.  5«  (J  *F  <  1*1  *  J-1  >*W  FFCT+1  ».»-?)> 

IF(.I.Fu.3)  V  F  V  1  ?*U  F  F  (1  +  1  *  1  ) 

YHtV(I»J*1  7*0  .-WFV1 1  )4V(1+1  ,J+1 >*VFV1 1 
vi»av(x/.i-n*(i.-uFvi',)+vaai*j-i>*yFviP 
DvnvF*<i/1  7-*>H)/(PYC(Y  +  1  ,,t)  +  0vc  f  J+1  ,J-1  1  ) 

R1s.?5*<i>FTAl)F<J+1,J  +  1  >  ♦  |>FT  A  D  F  (  T  + 1  ,  J -1  )  *2  .  *0  E  T  A 1  F  (  I  +  1  ,  J  >  ) 

n’a.?S«<1>PorTA<J  +  1*J*1>  +  [i'1DFTACi«-1*.l-1)*?.*r>Rf>fclA<I  +  1»J1> 

CfF  (.1  )*rcF  (.1  )  +  FTf4aA1awiSfc*APf  AEM*(Plt4ail1 
1*r>jpYF-PIM*A1*L'F*nXnYF  +  PIM»F|*l|F*nYriXF) 

CrE(.l)*rcF(J  )■♦  V7  SF*AP  =  AFW*UF*MT“R  (I+1»J)*WTHR(I+1»J'*F2 
0W0XES(V( J  +  1,J )-Y(I#J>)/C.5*(nxF(Ta1/J )+DYC (I)J )) ) 

0'»RY<J*(  V  <  J  ,.U1  )-V  (  I  ,  J  1  )  / 1)  Y  H  P  V 
11*8.5*  <"<  1*1  ri  >  +  ll(I#J  7  7 

DVOXfjsoYoX  <  7  ,  J  ) 

r  rg«  vt  s"*arfaf-*  <ovi)Yr«*?.*i'u*  dydyn) 

jFV?1*.5*<UFFfJ,J7+WFF<1,J+1)7 

VI  5«V(1  /  J*  I  7*WFV?1+V  (Y-1  ,  J+1  )*(Y  .-tfF</?1  ) 

owdxn»(.5*(v1?*ve>-.5* (vif*vu) ) / (.5* (oxr ( t , j  >*o*c ( I  »J*1)  > ) 

A'Y«.?F*foxI,'FfI,J)*nxYOF(T*1#.l)+OXinFYI»J*1)'fPXtOF(T  +  1,.l*1)) 
A**.?F*(oFTADF(I,.l)*OFT«pF(T*1,l)*l,eTAOF(T,J*1)4OFTA0F(T*1#J*1)7 
Rlx./SuXoPoXI  (J»J  l-MiR^rC  7  +  1  *.l  )*l)PO*I  <  J»J*1  7+OPOX7  0  +  1  /  J*1  >  7 
P>«.?5*(UpO*TA(T*.l)*O*UFTA<T*1,J)*D«OFTA(Y,,|4l)40'>pFTA(T4l,.l*1)7 
rrg»cr  <+pjh*aP*v j  Sg*A°FAw+  (PIh*a?*ovoxij-pyh*a7*hn*oypy  (  i  ,j  >♦ 

1  PJm* AP*Mg*0Vpx  {  T,.l  7  7 

PYPPpa.75*  ("THp  n  ,.l  7*«TMR  (I  »J+1  7+HTMPf 1+1  #J*1  )  7 

rr.l*Cf«4V  IS"*APF  A*l*l'rj«R7*l'TPRP*“TM|)P*A8/A7 
DV0P*.?5*{l)V<;fl,j7+*!VM7  +  1*J7  +  pYr(I»J*17+f>Yf<J  +  1#.l  +  1)7 
■M.>,)Yga{g  (  I  ,J+1  >-*<  7  ,J-1  )  )  /  (PYn**YPD> 

A4*.?5*(i)FT  ArF  (  7  fi  )+p*TAOF  (7*1  )40FTADF  (Y  » .1  ♦  1  )  ♦  D  F  T  *DF  (7  +  1  #  .1  ♦  1  )  7 
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CfN«CrM*A4*PJH*VISN*A»FAnHM)VDY!l 

siKT«j)ssii<T/J)+ccD(i«j)-rcH*r c*  (.1  i-cru+c^N-ccs 
SM1»SII{T,J) 

DVDXP*<  VF-VVO  /  0*  C  (  1  /  J> 

Otli)VP*(ti|i-IIS)/OYO 

IIPa.5*(l'N'ftlS) 

VTSI>aVl$(I,.|)4|.FN<I,jWVI$(r«J-*)*(1.-UFNri#j)  ) 

VP«V<I,J) 

DYOVP*.S«(l)XOY(T/.l)*0v0V(T,.l-1>> 

OY0*P«.S*(uY0X<T#J)A0Y0yCT,J-1)> 

SH<  T  #J )*SH(T# J  )  ♦  Yl  SP*  f  UVl>Yp*lMlD''p-UP*DXf'  YP)  *OYO  XP*tfPl 
SP(T,J)*SP(T/J  )-VISP*l>YnXP*OYOXP*VOl 
D('PXP*(Hf-llM)/OXCfI*J> 

S»(I#J  >»$1'<I#J )-?.*visp*ouoxp*oydyp*vol 
SP(T,J  )*SP(T,J  )-?.*VI«P*0X0V(**DYt)YP*Vf*L 
»e.JPa.5*  (  Dt*»(  J,.l  )*DF|.  f  J  »  J-1  )  ) 

Fil'd /J  )*SH(T*J)+DFwP*'ip*(IB*DXDYP*Vol 
SP*»r  fs-of  ru»*uP»nYf>xP*''OL 
S01*A"*IM1  (snPCE^fi.  ) 

SH1«SPPCF-SP1 

SH(T  ,  J  )bSU(y,j  >  •*■  S"  1 « V  (J»J  > 

SO(T»J)*S°<r#J)*SP1 

IF<PIH.Ffc.ll.O>  Co  ^275 

WF'J«rfd,J)*'''FFa,J)A*<d-1#J)*f1.-WFFU,J)> 

vM  3«-S*<wHU  +  W«U  ) 

F)i-MlYP«<Ue-lJ13)/DXC(T  ,J) 

»1P*.5*(l>PnXI<I»J)*DPBX7<T*1»J>) 

W>P».5*(DPl>FT#  (T,J)AOPOFTA  (7 ♦I,.!  )  ) 

•|T|!PPs.Sb  (  HTH°  <  Y  »  J  )  AMT  H®  <  T  *1  rJ  )  ) 

«<».S'*('>XI0F(I,.I)^i>X1PFM*1  »J>> 

H4«.5*<PFTaPF (I ,J )>0fTAPF(I*1  ,J  1  ) 

V!P».S*(U<I,J)4V 
DWDYP«<Md#.l>-V»U*J-1')/DV0 
Oli|>ypa<IIF-llU)  /  CXC  (I  »J  7 
0«0YP».5*(VfI»J  +  1)-V(T#,l-1))/PY'' 

S»<T»J)*SP<T/.I  )-(nTMt;»*MTv«Pi*P?P/  (PTv<*H^  )-PIrt*P**PXPYP  +  F 
1  rjVOXP)  *V  f?P  +  VCl*<PIH«p„«OYOXP-PTH*aS*PXl'Y»*HTHBP*MTMRP*F?P/  (  PTh* 
1W5>) 

SH  <  T  »  J  )*SU  (  T  /  .1  )-  (MTWHP*MTRfiPwP?*»/  (pt**HX)-PIH*85*I>XbYP  +  FIM*»6* 

1  oYi>y»»>*v<u  «  <ufwp* 

1  JP*|IP-VT  SP*  (  DY  OXP*PlH'*li5*»UnXP>PIMAP6*OIIDyP)  ) 

3?7S  CPuTP'IlF 

in  rPtJTiMiic 

1P.1  fPlIYINlIC 


c 

CMAPTFM  2  ?■??•»  2  7  PPOPLFII  MODIFICATIONS  2  2  7  2  ? 

f 


c»u  Ponv 

F 

C M  A  P  T  F  R  x  FINAL  CPEFF.  AS«FVHIY  AMD  PFSTO"AI  SOURCE  CALCULATION 

r 

op  xi,n 

OP  XU1  «X  ,n  J  f»  1 

AB<T#J)*Ar>(T,,|)  +  AM(I,l)*Af(I».l)*A«(t#.l) 
U»F(I#J)*A«M»J)-<F<1»J) 

D'K  T  »  J  )»(>'/  ( I  ,  J  )  /AP(I  ».•  ) 


2 


X 


? 


3 


«fS0W  =  AF(I».»)*V(I  +  1»J)+AJ(I,J)*y{I-1,J)  + 
1AI'0/J)*V(I/J)*AU(I,J>*V(T/,I)- 
HPSV(I/.l>»HPSOP 

V0L>.S*(ARE*XY(T#J)«APFAXV(T,J-1))*D2e(1) 

S«PVOLsf.«EAT*VC( 

I  r  ( • S°  (  T  *  J  )  .C7.^«^*SCpV0l)  PFSO»*PFSO»/SOPVOL 

ie(-sp(i,.i).r-T.n.s*so°v^L>  Resvfi,j>«PFSV(i#j)/soPvni 

RFSPHV*PESOPV*APS(RFSO«) 

RPSvn  *J  )«RFSV<I,J  )  /V«L 
—-ll»'DFR-«FLAX*TIO*.' 

AP(  T  »  J  )sAP  (T  *  J  )  /ll»FV 

S"(T,j)sS|i(T/J)  +  (1.-U°FV)AAP(T/.l)*va»J) 

DV  (1  /  .I  )«1>V  <  !  ,  J  )  *IIP  F  V 
’ini  cnuTIMIlF 
’inn  cnwTJ*MiF 
un  n«7 
•>0  V.7 

A«vf  I/JIaAIHI/J) 

6<Vf I#J)=AS(I/J> 

A F  V ( I /J)»Apf  I  #J  ) 

AMVfI»J)»AuU»J> 

AI'V(I#J)aAtiri,j) 

A"V ( I »J)*AU  < I 
^*7  A#V(I»J)»APM»J1 

AOTFP  4  4  4  SfiLl'TION  «F  oTFFFPF^'CF  FUIIaTION  4  4  4 

t>0  4 .  IT  A'sl^'SWFV 

*.0(1  f  *  L  L  LISOI  V  f  2  »  3  /  N I  /  A' J  *  I T  » .1  T  #  V  1 
kFTIIH'I 


SI'HPOUTIuF  CAI  cw 


c«aptfp  r  0  r  o  p  n  r  n  prfltkimartf*  o  n  o  o  11  n  o  n 

c 

c.  ft.*ruN 

1  KFSOkII,IIPFiI,SFSOPV,!IkFV,«FSO**,PES00W,IIPFW, 

1  iioFP,PE<cPT#liRFT/OF?0PK»U°F>f»PES0Bl>»l|PF0# 

1  rfFSH(?5,?^),PFSV(?5,2F)»PFSU(?5,?F),RF$P(?5»2*), 

1  i>i'(?5,?M,OV<?5,25)  ,DW(?0,2S>,ii (2f,’5),v(?5 ,2*i), 

1  ■j<2‘>,',5>,P(?5,2,i),TC2'!,?5>,TFr25,?5>,FU{2F,?:>>, 

1  f>P(2b,2,l),beu(2ti,?5),\>IS<?5,25),AH(‘>5,2':),A$(?5,2,>), 

1  AP(?5,?5>,AW(?5»?5),A!'<?!>,?,;>,AO(?5»2S>,CE<?5''f(>f25,?51, 

1  CCF(?'!),rrD(25,95),Ap(25,?S>,SUC?*,,5),SPC?S,?5),nxr(;>5,2*!> 

1  OYC<?*,?51,OZC  (4),wfe<25,?5),wfn<?5,?S),wF[>(4>, 

1  ARFAXY(?5,?5),Fl[)<5f',,;),NlD,.fl»,EAM,I,'IE>FX,HYDPT»,PAF,P1D(Rfn, 

1  VF|  Ill,TIK,TWAI.L,FlOVIF',RHeAT, 

1  HOF  VIS, VlPC^S, DPiJSIT, PH*  ?i*T# 

1  POTF,BKFD,CMil,CPT,Cli1,C?  l»CAPPA,l-l  00 , A  L  A  M  P  A  » 

1  M  0  gPH ,  FSWPV,  N«WPU,  FSWPP,MSWPT, 

1  ,-,F»JP<,NSWPD, 

1  IPWFF,JPRFF,KPPPF,IN'OCOS 

CPU*  OR  TA1'XM?51  ,TAIIXW(?5)  ,TA"2«  (?5)  ,TAH2»t(P5)  , 

1  YP|  l)S«(?5>,YPI  |<«Mr?S) 

1  ,S'-IFT,  FLOUT  CT,fPW,0  Fill  Y,FLOWT 
1  ,N1,U? 

1  ,ott,MP,THFTA,AH,0P0  7,FL''WAX,DXinF  f  2'?,P5),0FTaPF  (2A,?5> 

1  ,nH0xi  (?5,2S),0Pl)FT*  {?5,2«),hth»<?5,25> 

1  ,Pl  , util, FI  ouw 

1  , PI* AL I  ,Sl:^S,Slll'P,INIi.'in,PXPY(2',?5>  ,1Y0X  f  2P,?S' 

l  F  V  P  I.  ?,|IH 

C'"'’f'on/PLK?/m<'’5,;)5),vV(;>5»;'5>»ARtif?s,?5i,ASii(?5,2,!>, 

1  AFH(?P,?5>  ,  A  w"(",5,?S),APtH?,»,?5  >,»U"  C’b,2«), 

1  A*'^(?F,?5T,asv(*!>,?F)»aFv(?^,?5),Awv(?S,2P), 

i  rowT(P!>,  tr>,vBuf2P),jTs, 

1  ADV(?P,?5)'AllV(?5,2S),AA(Pb> 

1  ,.|P,thotv,yff  C*5,?>  ,*D»<?!>,21,prodp  (SOI  ,«FNNf  25,751 
1  ,HP*NDI  ,fiUT(?5,?S),A»'»l<S 

1  ,Pyt)fj(2S,?5),AK7('J5,?S),AYO<?S,?5),AK»C?5,2,!)»RVTf2S,?5WAk'P 

1  ,AkFT,AkFTR,AkfT0,E1P(?S),F1rZf2E),F1k''(?5),F1«'A^2S),F1PVTf?,i) 

1  ,i.!oi|t'P  ( ?5,?5),fi>i'P(2,;) 

1  ,  t,  0 1 1  f*  p  ? 

1  ,apii(?5,2F>,apvc?5,?5),prc?5,?5>,*mOl(25,?51 

1  ,KASfl,riASP 

1  ,viFvf2S,?5),VAf?5,?!>),VB<2S,?5),vC<2S,?5) 

1  ,Psr  <F)  ,IMFS,f«AXIT2 

*  »  P  W  S  <7  5 *25  )  , RP(*  ,NT  TF  R  »!1  A  X  1  T 

1  ,U  PtJ«C,VTSl0f5r)  ,X"lL  (?5»?S) 

C*  A  0  T  F  W  111111  »SSF"BlY  UE  roFFFIfIFNTS  111111 

r 

RFSOPWsO.P 

po  49  I*2,|;jh1 

DO  49  ,|*2»:UK1 

APR AbMsAPF A YY  (  I  ,  J  ) 

r.n*PFr.'(  t  ,  J  )*.5*  ( u(  1  ,j  '♦«< j,j  ) ) 

CO  (  T  ,  J  )*6D*ARFpniJ 

visn»vis< i,j ) 


CTD*VIS0*ARFADU/D7C(1> 

DTD*A*AX1  (UT0»-.5*Cn(T,j  ),.5*f  D(I,J  )  ) 

A«{I,J>*dID-.5aCD(I,J> 

Ou  1)7  0*0. 

Cf»U  •  J  )sVI<0*AR6ADII*OW0Z0 
CDd/Jlil'.C 
4  9  COnTJ  r-UF 

(>Tw*.5*(o7C<i  )*ozc  ( i ) i 

OO  <11  J*?,i4.»|.|1 
1*1 

APFAFwaOvC  <!*1 , J ) *0  7b 
GFpaDFMd  *  J  1*11  (  I  ♦I  #J  ) 

CF<J)*0.5*<RFn-»GFlO*A®E»EW 

C1a.S*<nxlDF<T4l«J)4CXIftF(X4l,J41)) 

r’a.S*(i>FfJ(T».l)*U(I»Jl40E4i(T4l,.l)*y(X41,j))*Ap6AEW 
f  F  (.1  )*CF  (  J  )4C1«PIH*C2 
«/TSFa.54(VXS(T»J)4WI$r|»J)) 

0»i»Wa.25*  (0VC  <  I/Jl4DXr<T/J4l)4D*C<l*1'J>4|'Xr(l4l,J4l)> 
0TF*VISB*ARFAFW/(>XMN 

r?*.54(OXll)F<l4l,J)40XIOF(l4l,J41)) 
f  X*C1  APTM*C,*PI^,*PIE*,. 

DTE»DTF*C3 

AT (I ,J)aA*AX1 (b  FE ( I  41 » J )*fE ( J ) ,- ( 1 .-WFF ( I  4 1 , J ))*CE<1)/0TF) 
1-upFd+l  ,  j  )*CF(J  ) 

OMI)7e*0. 

rfF(.naviS64APEAEU*0ll«ZF 

Ala.5*(PFTA0F(I4l/J)40FTAI)FU41»J4l)> 

DIM*.5*(ii(  J41  ,J41  )-(l  (1  +  1  ,  J-1  )  ) 

I  f  (.1  .Fw.WJHI  )  OVNNaOYr  (T4l  ) 

DYHWaOYr ( !4l / J ) 

T  F(.I.F.j.hJll1  )  0IM*II(I41  ,r,.l  )-.S*(||(I*1  ,J  )4ll<  T4l  ,  J-1  )  1 
I*  0|'Ka.S*(H(»4l  ,  J  41  )  411  U4l,J))-Ud  41,1) 

(Tf  (,|  IsfcF  (  •  )4Al*PIM*VISE*D»<M/DYN»>*ARFAFW 

A?a.S*(OXli>*  <I4«,.I  )4DVll>Fd4l/J41  )  ) 

OM|,X  I  *.<*(!!  f  l4Z#J)»|l(t,J))/PXNN 

CTF  (.1  )arcF(.<  )4FIK*A?*OIIOXT*APFAFW4VTSC 

Al*.S4(OxIOf(T4l»J)40XIPFd4l,j4l)) 

A?*.S*<OfT  Af>F  (1*1  ,J  >4**fTADF(l4l  ,J4l  )  ) 

Jf'ab  <  T*1  ,  J*1  )4WFe(T4l/J4l)4W(I»J4l)*(1.-UEF(I*1,,|4l)) 

J«*V(T*1 ,J-1  )4WFF(T4l,J-1)4W(I,J-1  )*(1.-i|FE(I4l,J-1)) 

Ob'OF  rAa(UN-WS)  /  (UVf  (141  ,J  )■*  »<4(1>YC  (1*1  f  1  4 1  )  4  D  Y  C  (  I  ♦  1  '  J  -  1  )  )  ) 

T  *  (  .1  •  F  ij  .  .J  J  ill  )  rwl)FTAa  (UN-WS1  /  f  0VC  <  1*1  *J)4.S*DVC<1+1»J-1>) 

1  f  (  J.F.).?)  OViOETAa(WW-W<)/  (PVf  (T*1  ,.l  )4.5*riYr  {!*1  ,J4l  )  1 

CfF(.l)aCCF(.l)4A1*“IM*'»ISE*WbPFT«*PlH*A(»eAFi4«A?«?. 

91a.i*(OROXI(T4l»J)40O0XI(J4l»J*11) 

l»  ■>«.<)*  (DROFTA(1*1,.I)40ROETA(I41,J41)) 

VFa.?5*(V(I»J)4V(1,j4l)4Vd4l,J>4V(T4l,j4l)) 

0Y|»XFa-S4(uY|>x(T,J)40YDX(T4l,J)> 

OYOYFa.3*(OVUY(T».l)40VDV(T4l».l)' 

f<“E(J)*rcF(.l)-PTH4A?«OY0XF»WE*VTSF*ARFAFw«.pTH4A1*VE*D*l)VE*VTSF* 

1  apfafw 

HTMPEa.S*(HTHP(T4l,.l)*HTHP(l4l,j4l)> 

IF(PIM.F6. U.O)  GO  TO  3?7o 

r'‘b(,|)aCCFU)-HTHRE*HTHPE4K?*VE*VTSF*ARFAPW/(PlN*Al> 

DM  OX  JFa(w(  1*1  *  J  >-W(T,.i  )  )  /PX“N 
3?7A  rOlJTirrilE 


K>  fnfJTTNIlF 

(>n  Kin 

J*1 

A0FAmsdXC(I'J+1)«D7W 

R»'Ij*uE,J  f  I,  J  >*V  Cl, .141  ) 

fi‘lil«i>F.id#J'*Vd».l«'1  ) 

fv*r.*;*(r^-‘D*GKIl)*»RFAM 

C1«.'5*<nFTA''Fd/J4l  )*»>eTAftF  (1*1  ,J4-1  )  ) 

r?»f>FN<  I  ,  J  )*W  (  I  /  J  )  *  ARB  am 

C«*f H4C1 *PIH*f ? 

v»s*=.5*<v j<< i ,j )*wrsF i #j ) ) 

,«VTSf-’*AWFAF'  /  F.^5*  ovr  (T»J4-1  )*ovc  (  I*1  /J  +  1  )  )  ) 

I  *  <  i  jnFY.Fd.ii)  oiv*n.n 

C1».5*(DFTAf»FfJ*1»J*1'  +  D6TAI>FfI#j4-1)) 

r,«.5*(f'FTA''F(I*1/J*1>*>'ETA'>F(I»J*1>> 

0T"«ri*f  ?APIrt*FIH#?.*VISi4*»'»EAiJ/ (,25*(DVC  n  ,J-»1  )*0vr  <  T  +  1  ,J  +  1  )  >  ) 

1  +CIM 

A*'  (  I  ,  J  )*AMA  VI  (wFm(I  »j*1  ) *Cu»-<1  .-UFW(T#  J*1  )  )*f  n/DTM>-WFN  ( t  /  J  +1  )*CF' 

0''l)7.4«ll. 

CFu«l>.i) 

Ala.S*OeTAnF(l*WJ*1>+OeTAOF(I,J4.n) 
A1«.i*(1XI(lF<I/.U1)*ll»I,)F(I*Kj*n) 
jFr-F»’s&xc<i/J  +  i)/<oxcFi/j4n*exr(T*i»j*i)i 
jFtw?=oyc  <  i“i  »j4i)/fDxca-i»j4iwnxr(T,j+i)) 

Vf?s  ,1(1  +  1  ,J  )  AWFFE?  +  W(T,J  )«  (1  ,-wfef?) 

1-1  ,  J  >*<1  .-l'FFw’)-»Ud'J)*«FFW? 

0''uxt«(ME?-uy?)  /  oxr  O  »J*1 1 

C  I*ri*f  C.7*A  1  *P1H*  A  7  |i*f)W0X  I*  APE  AN*VTS*4*?. 

A,’x.5*(i>ETAPF<WJ41)4nET«nF<I*1»J4l)) 

UV  U=.?S*(DVC  (I  ,J  )*I)VF(1  »J+1  )*l>VCd*1  +  (J4l  *.t41  )  > 

bVi)FTA*f1.r 

A^*.54(0XlGrCT».l  +  1)4DVIf>Fa4l^J*m 

pl  =  .S*(DpPXI(I»J4l)4UPDXin*1,J*1)) 

H?S.S*(RKPFXA(I/J4l  )-»Pk"eTA(I*1  ) 

WF?*V  n+1/J*1 )*WFFF?4W(T,J*1 )*(1.-wFEF?) 

V-'?*Yd-1»J*1  )*M  ..WF*l>?)«Va«J*1  )*WFFW? 

I)VDX  4*<VF?-VU?)/t>XC<I  »J41  ) 

MTHp.jS.SAfHTHRd  #J41  )*MTHP  (T*1  ,.l*1  )  ) 
l>Vlls.?5*<PYfd,J*1)*DVCd-»1»J*1)) 

O'wav  J«(U<  T,.l  +  1  )-U(  I  ,J  Y  >  /OYN 

00  1 1 1 1 

— — rniiPliTF  A°F  AS  ANU  vnUMF———————— 

A»FA.J  =  oyt  (I  'J*  >  )*07V 
aoeafusPyC  (  T  *  1  r ,]  )  *  D  7 1» 

A°FAOII«AReAXY  (  I  /  J  ) 

- C Al  CULmTF  COl-.VFfTIpf  fOFFFlf IBfJTS— — — —————— 

Nns.S*l)E.id/J)*fvJd#Jl+vi(T#J)) 

( I  ,.\ )  4(1  .-WFt  d*1  ,J  )  )+|)t|j  (141  ,J  )*WFE  (1*1  #  J  )  >*!'(  t4l  /.I 
r  > 

GCjsjnFrjd,.!  )*  (l.-wFE  d*1  ,i  ))+of«(I41  *J  )* 

’K'6M  +  1,J))*u(I4l»J) 

(  DFf'  (  T  *  J  )  A  ( 1  ,-WFI.  d  *  J*1  >  )*UFN  d  »  J*1  >*«-'FN  (  T».l*1  )  > 

r*'<(I,.l  +  1  ) 

( pf*;  d  ,j  )*  (1  .-kFf.  d  ,J4 1 )  )♦.>*,:  d  # J*1  >* 

r  i> f  n ,  j  ♦  i )  >  *  v  d » j  ♦  n 


CO(I,J  )*fif>*AKFAO|l 

c«sf  J 

cmsp  .*>*(pnd*pnii)  *apean 

C'-'*fF  (  J 1 

CF(.l)*O.S*(fiFn*Fbli)*A°F»E« 

Cl».*>*C0ETA'>Ml»J*1>**'ETArF(I*1#J*1>> 

C’»fOFW(I  ,J)»W(T,J  )*C1.~UFNCI  »J*1 >>*&FN(I ,J*1 )*v(I»J*1 )*WFN(I, 

1,1*1  >  )*APf  An 
c*'»r,i*ci*PiM*r? 

r1s.S*(f>XlDe<I*1,J)*fiVI»F(I*1,J*1>> 

C’oCDF.JCl  ,J  1*M  T,J  )*(1  .-WFE(  1*1  ,i  )  )*DFW(I*1  *J  >*WCI*1  ,.l  )* 

1UFFC 1*1 »J ) )*A»F AGU 
re(,l)ecF<J)*C1*PlH«C2 

— —  CALCULATE  PIFFU«IPh  COEFFICIENTS— ... — ..................... — 

Als.S*(f>fcTA0FU*1#j)*nE7APFfT*1»J*m 
1  *  (  J .IT.hjpi )  V  T  SW*V 1SVCI»J) 

IeCJ.FQ.fJ'!1)  VTSNsVI«CPS 

1  F  (  J.l  T  .  M  .1 : 1 1  )  VJSNF*VTSV(I#J>*t>¥CCl*1»J*1'/(DXC(l*1»J*11-M>Xr(T, 

ij*i))*visvcT*i/J)*oxcn#j*l)/(Dvcfl*i»j*i'*nxP(!»J*i)) 
IFCJ.Fu.HJIH)  VTSME«V»SCOS 

VTS$F«VTSVCT#J-1>*DXC(l*1*J>/(|>XCCl*1*J1**>xrCI»J))*viSvCj*1#j-1) 
1*0  XT  C7 ,J) /{PxC(T*1»J )*0XC(1,J> ) 

Vises. s*(VI«SF*VIS«F) 

V  T  SlaV 1 S ( I . J ) 

i>Ti)«VlS»*ApFAOti/l)ZC  (  1  > 
nv,jps.?S*(D1C(I/J)*0Ve{I*1  ,J)) 

I*  CJ.E0.NJH1)  pu  TO  »? 

Pi  i)Vilp  =  OYNP*.?5*(0vr  (T  »  I  *  1  )*0vCCX*1  »  J  ♦  1  )  ) 

P?  DT^sVTS'JPAHeAK'/nYMp 

DVFPa.?5*(0VC<I^j)*PXr(I ,J*1 ) > 

*3  f)YEo=nx'p*.?b*  <nxc  <  T*i  *J  )*l>xc  (1*1  *J  *1 )  > 

f)Tt*VISFt»ApeAFu//)XtP 

0».11sftJ»! 

Kt FI =0  IP 

Ci«.b*cixH/F(i*i,j)*uvirrci*1*J*D) 

f?»,b*(OXJI*FC!*1*J)*0VjPFCX*1»j*1)) 

rT-ri*piH*c?*FiM*niF*‘». 

MF*,)  TF*Cl 

Cla.‘j*(0FTA''F(I  +  1/  J*11*PETADF(I*J*11> 
r’s.S*(OFTAOF(I*1,J*n*nETADF(I,J*1)) 
fT»ri*r?pPiM*Pjp*njNp’. 

Ij  T  .4*0 1  •)*  C  3 

pTf^aOIF 

—  r  A  i  r  ■  ft  ATE  (IASS  POMP  PE  FOP  USF  in  STABIL  TSAT  TOM  P»PCFD"»F--— 

s“p*rf>  (  t  »  j  )-ci'+r.i-c$*cF(  j  )-r  p 

C°*AiAX1 (P.r /SPP) 

C  P()*  f  P 

— —  ASsFi-.PLF  f"  A  I N  COEFFICIENTS— — ——————————————— 

1>T{)*A«AX1  (OTl»,-.b*CI)  (T  ,J  )  ,  .S*PD  (I  ,J  )  ) 

Al'C  T  r  J  )sAOCT  r  i  )*C" 

Af>(T,J  )*DII>-.5*ro(I/J1 

AN(I  ,J  )*A«*AV1  {^eMd  ,J*1  )*rM,-(1  .-UFN(T  ,.l*1  )  >*f  N,DIN)-UFN  (T  ,J*1  )*CH 
A«(I,J )*AN(T»J-1 >*cs 

AP(I,J  )*A1>AX1  (i,FE(I*1  ,J  )*CE(J),-(1  .-jFE(I*1  #J  )  )*CFCJ  >  »DlE) 
1-''FF(I*l,j)*ce<.i) 


At-' (  J  ,.l  )*AF  (  1-1  4  J  )*CU 
&V( I  4 J  )*APEA0II 

S 1 1  (  X  # .1  )»CPO*«(I  /  J  )-.5*AREADI'*(D»C(1  >  *f>Z  C  (  1  )  )  *DPO  Z 

— forlPi.FTF  ASSE!*B|  Y  OF  SOUHfE  TF rms— ————————— 

Cfii*CrD(I,J> 

r<“s*rrN 

rr^«rcE(j) 

ouozoan. 

ffDft/J)aVISO*APEAI)ll*«WOZP 

f ro ( i fj )*n.n 

Ol'OZEan. 

ere  (.  I  )  aV  I  SE*APEAEW*IH!17F 
A1».S*(0ETAPFCI*1#J)*»ETA»F(I+1#J*1) ) 

WFiJ1«DYf(I*1  , J ) / (OYf  <  T*1  ,.l  )*0YC  (  I  +  UJ+D) 
ge.J?afJYC(  1*1  *J-1  )/  <OVr  (X*1  »J-1  )*DVC<I*1  4j  >  ) 

|INF».I(  1*1  4.1*1  )  AtfFMl  4i-  (141  ,  J  )#<1  ,-UFNI  ) 
il«E*ll(I*1  4J-I  )  *<1  .-WF»  2)*l'<X*l4.l  >*JFN? 

Dl,;<»lir.'F-ilSE 

X  F  <  .1  .Fk.uJiiI  )  l>n;l«lt<  1*1  »M.I  >-l.tSE 
tef.i.c,j«2X  f>iip*iiMF-n < x  +  1  / 1 ) 

UVMfsOYf ( 1*1 • J  ) 

rrf  f  J  WCF  (  J  )4A1*PIMa>/ISF*0HH/[»V|jh*arFAFw 

Ala.5*(nxlDF<I*1,J)*0¥IDFfI*l4j*m 

A?«.SM*>ETAnF<I*l4j)*OETAPF(I*l4j*1)) 

«IF,E»U(I*l4j*1)*tJFF(T*l4j*1)*Wfl4j*1)*(1.-WFE<I*l4.|*1)1 
vi«e*iJ(l4l  /J-1  >*\JFC(X*A,J-1  )*Wf  I,  J-1  )*(1  ,-«F?  (1*1  4. 1-1  )  ) 
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f>V-JH*s.?S«  (OVf  (  i  ,  J  T+DYP  (  r  ,  J+1  )*1>VC  f  1*1  ti  >*BYC  (  1*1  0.t  +  1  )  1 
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l4AF(l,.|>*Ai»fI#J)-SP(I»J> 
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AO(|,J)aAP(T»J)/llPFW 

n"(T»J)*SU(T,J)4.(1.-U»FP)*AP(T/J)*WTI*J) 
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OPmF»PE»'(T#J) 
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- CALCULATE  coefficients - — ...... — ........... - - - - 

»F;jNaPFN<  I  ,J  )*<  1  )41>F»I  f  I  ,  J  +  1  1*uFN  < I , J4l ) 
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— — EYTOA  TER"$  DUE  TO  *P I  R  ALl  IPG— ■ ------------------------------- 
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1  V**(T/J  )*i»nv(l  *J  +  1  >*W  TJ/J*1  >*AHW(T/J*1  )*v*/(  T/.l*1  >) 

i  /  (  apv  ( j ,  j*i  >+sr*i.i ) 

TMJ.FQ.?)  PDsf.n 

IMJ.PT.2)  f>D».S*(i)Fl,  (I/J)*r>EN(T/J-1))*r>XC(I/J)*D7Cf1'A( 
i  Afvfr  /j  >*vvd*  i  /j>*Aw«'<r/J  >*w(t-i  /  j  >*A»>vn  *j  )*vv( 

1T/J*1>*ASV<T/J)*VV(I/J-1)+A0V(I/J)*VV(I/J>*AIIV(T#J 
1  >  *  V/  V  <  J  /  .I  )>/(APV(I/J)*0|1ALL) 
si'd  ,.i  >s-(aa  (I  )-Hn*rc-oo> 

SiMP*Sitni>*S"<T,.i) 

SMT/.I  >«lt.U 
r.n  T,)  1044 
1*47  fPrJTTl'ilF 

PPSP(I/J)«S<*CI#J  ) 

PFSF’(T/J)  =  PFS,'<T/J)/A"FAXY(T/J) 
pPSOi»‘,sPFS()Pf'*Ans(SH(T,.|)> 

1*44  rO*Tlf'!IF 
101  Cn  jT  x  *' |ie 
IPO  f  OMT  XfUlF 


CUAOTFr?  7  7  7  7  7  2  7  PP|>PLFM  MODIFICATIONS  7  2  7  ; 

r 

r*u  poop 

r 

rPAPTFP  T  3  T  3  T  FIU*l  C  0  (■  F  F  J C  T  E  N  T  ASSFMPLY  3733 

r 

do  Tor  T«?/f*IF1 

DO  Till  J»?/MJM 

301  AP(T,J)*40CI/.I)4AS<T/J)*AF(T,.I  ) 4«U ( T , J ) 4 AO < 1 , J ) 4 A"  (  » / J  ) 
1-«P(T/J) 

TOO  fOiJTTNilF 

c 

CMA»TFP  4  4  4  4  4  SOLUTION  OF  DTFFEPgNCF  FILIATIONS  4  4 

r 

1)0  4or  f'al/HSWPP 

*.00  C»Ll  l  I«0lV(?/2/Wl/KJ/IT,jT/PP) 

OO  COHTJNllF 

do  7o1rf  j=2/!:Ji'1 
P°(1  /.I  >*PP(F-IP1  /J  ) 

7*17.  pp  (p  T  /  J  )  aPp  (7  /  J  > 


UP  7*17  I  *  2  ,  N  T  K 1 
7817  PP(T,1  )sPP(T,2) 

C 

CHAPTPU  S  5  5  5  COPRPCT  VELOCITIES  AND  PPESSORP  5  5 

C 

l)p  son  T*?,NIM 

on  501  Js?,NJM 

r - correction  of  the  velocities— — — — - — — — 

tt(IHItMP.Fa.l)  no  TP  1949 

ll(I»J)*P(I»J)4D0(T.-J)*(PP(l  — 1,J  1— PP  ( I  ,  J  )  ) 

I*(.».NF.2>  '»(I,J)*V(I,.I>  +  PV(1,J>*(PP(T,J-1  )-PP(I,J)1 
SP1  CPWTINOE 
SPO  CPOTINOF 
SP4  CPHTINOP 

OP  7013  I  a  2  ,  M I  |M 
OP  7013  J*?,OJi 1 

llll(I,  J)*l>n(T,J)A(PP(J-1,J>-FP(I,J)) 

7013  IKJ.HE.?)  VV<I#J)*PV'I,J)*(PP(T,J-1)-PP(T,J)) 

OP  7014  J  *  2  ,  f  >•  K 1 

00(1  ,J  )«OU(NIM  ,J  ) 

7014  iO'OH,J)s(.'U<2,j) 

OP  7016  I*2,N JM 
lion,  1  )*NO(T,?) 

0O(I,MJ)aP.P 

v'/(t,i  )»n.o 

VV(T,?)*U„U 
7()1  «S  W(I,NJ)aP.r 

DP  7il1V  J»2,NJIM 

v«d,J)*vv("iri,j) 

7ll1  9  VV(NJ,J)*VV<?,J) 

00(1,1  )ami(NIP  |,1) 

ood  ,nj  )=n.r 

l»*(M,1  )  *011  <2,1  ) 

7018  ||0(MI  ,wj  )*u«p 

V«(1  ,1  )*VV  (NIP  i  ,1  ) 

VV (1 »0j )aP.P 
V«(M,1  )*VV<?,1  ) 

?07ll  VV  (»I  ,NJ  )»O.0 
1940  fP‘4T  1  MOp 

r— — —  PljFSSOPES  (WITH  PROVISION  FOR  1)NDFr-rFL»XATT0N)  — 
PPWFF»PP(?,?) 

OP  SO?  T  =  7,0IM 

up  so?  js?,ojn 

P( I , J  >»P ( T,J )4UPFP*(P»(I,J )-PPR*F) 

P<1  ,.l  )a»  (MINI  ,  j  ) 

P  <  NT  ,.l  )  ap  (  ?  ,  J  ) 

P ( t , 1 5  *P (1,7) 

P(  T  ,  rj  j  )*p  ( I,PJIM  ) 

SO?  CPOTJNtlF 

P(oT,1)sP(2,?> 

P(MT,Wj)aP(?,NjP1 ) 

PM  ,1  )sP(MI*1  ,?) 

PPWFF*PP(?,7) 

UPTOWN 
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r 
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CHHPOW 

1  KFSOKII,IIPFIi,ftESPRV,l.'RFV,HFSnR»,*ESO»W,URFW, 

1  ilPFP/°ESOPT#URFT»RE<OPK/UPFK»RESOPl>»URFn# 

1  HFSt'(’5/?,>),HFSw<’5#iS),pPsw(’5,?,'),pFsF'(?5,2,!)» 

1  Mi(?S,25)*i>V(?5,?S)#DU(?5,2S),U(25,?5)*V<?5 

1  u(2S,?S),P(?S,2'),T<2*,?5),TE<2S,?5i,FI><?'#?S)r 

1  PP<?5/25)»oFN{2^/?b)*VlS<?5»25)»AM(?5»25)#AS(25/25)» 

1  AF(2bx?5)#At.|(?5,2S),Ati(?5,?«l),AD{?5,?,;),CEC?5),r0F25,?5», 

1  CCF(2^)»CfO(2s/25)»AP(25»?5)/SU(25»,5)»SP(25/,5)»Dxr(?5»?5) 

1  0YC(2*!#25)#0/f  <A),uFEf2S/,5)/HFN(’5,2^)»yfOF4>, 

1  APFAXV(?5#25)  ,F10(5C#S),IH0,WPEAW,IMDPX,HY0PI»,PAF,Rin(,;0), 

1  VFc  TlJ*TJf.*TWAI.  I  fFLOWIN'CRPAT, 

1  llPFVIF#V  1  SCOS/OFfISIT  »PR  AiiPT  » 

1  PPTF^pRFD,C'MJ,C''T,CH*»C?W,CAPPA,EI  OP, ALAND A, 

1  USWPII,  F'SWPV,  K«WPW#  MSWPP,N$WPT, 

1  NSWPK,I1?UPD# 

1  lP«FF,jPRFF,KPRFF,If‘DPO? 

CftiiPON  TaIIX<(?5^TaI!XN(?5>#TaIIZP(?5)  »TaH2m(?5), 

1  YPH'S<(25) /VPUi«H(2S> 

1  »  T  T  ,  J  7  ,  N I  #  i<  J  ,  N 1 M 1  ,  N  J I1 1 

1  »SWET, FLPWTOT,CPW,flFLUX, FLOUT 
1  ,K1 ,H? 

1.  ,RA,RP,TMFTA,AH,0PD7,FLPWAX,DXIf>FC2S,;>5>,f>ETADF  ( 2E ,?$ > ,PJ W 

1  ,D»nxT  (?5»2*>)  ,C«*0FTA(?5»2S>»HTHR(?5»25> 

1  #Pl^WIN/FI.OWM 

1  ,SPALI  ,$UMS,Sl'f'n,l  i'lttMP,PXDY  (25/?5)»nYPX(25»?5> 


I  PVFi  ?,|JH 

r«.MPiifi/^L  K2/iil'<?5»25),VV(?5,25),Auu(25,75),Asil(?5,2*>» 

1  AFll(?F,?5),AWH<?5,?5),AOtK25,?S),A'IH(?*»,25)» 

1  A'JV<2,i'?5)*ASV<75*25>  »AFVF 25,  ?5 >,AW«{  25*25 )  » 

1  C"i  T<?5, 1P)»YPNf25),jTS*' 

i  At>v(2**?5),AllV(',5»25),AA(?5) 

1  »jr..TH^TH,TfP(?5,2),PD«(?5»2)»'»RPDP(50)»REWNf25»?5' 

1  ,PRANQl  #<?f,T<?5%25), AmiSS 

1  »rppl>(2‘!/?b),AK7<25#25>#AKD(2,5^5),AKA(?5/2S),RMT(2S,?5WAKF 

1  ,AirFT,AKFTr,AKrTD,eiP<?5>'*1’,’Z<2*>'F1K''(?5>'FlKAf?,>>»F1RVTf?5> 

1  ,uoim° ,CMI A  (25/751  ,f,H>Rf  2^  ) 

1  ,ARii<?5'?5>  /APV  '25/ 75)  'RRf  2S,?5>  ,»M«L  <2S/?5> 

1  ,KASM»wASN 

■>  ,VlSVf2S,-»5>,VA  f?5,?5)»VH(?S,?5  WVC(2^,?b) 

i  ,»SC  <•!)  #IRfcr,,WAYiT2 

1  ,PR$(55/2?)/RP0»NITFH»r«*XTT 

1  »TLFIJ^C/VIS10(5P)»XPLL  (?5  »2*  ) 


c 

CHAPTER  111111  ASFEPBIY  of  rOFFFiriCUTS  111111 


c 


t»FSOKT»n.O 
no  A v  j«2,HTFl 
00  49  J»?,UJ(<1 
A»f  ADllsAPEAYY(WJ) 
r,n«OF‘J(I,J)*U(J»J) 
Cn<I,J)«GD*ARFAPll 


r,»^f)3f.nT(l,j) 

OTI>«fi»Mn*ABFAOU/  (.5*D?C  Cl  )  ) 

<*P(T»J)*APAV1 (UFt>(1 )*rD(|#j),-(1.-WF0(1 ))*C0(I,J),0I01 
1  — w F n  f  1  )*CMT,J) 

49  CONTINUE 

o«  m  j*?,h.ihi 

1*1 

A»FAFW«PYC  (T  +  1  »J)*D7CCl  ) 

AFaftFf  (  r  ,.|  )  «u  (  I-H  «  J  ) 

CF(.I  )«GF*A»FAFv. 

C1a.S*C'XIDF(!*1»J)40*II>f  ) 

C9«DFH(  T  »  J  J*W<  I  »J  )*(1  ,-UFF  <1  +  1  ,1  )  l+PEHCT  +  m  J  )*U(  J*1  /  J  >»WfF(  ffl  ,  J  ) 
CF(J)»CF(J)4C14«'IH*C2*APEAEM 

t,»e»F«.?S*(ftrr<I»J  >*GPT<  T*1  /  J  )4f,HT  C  I  ^  J  —  1  )  ♦CriT  (  I  *1  #  J-1  )  ) 
9TF*r;A4F*AKFAFt,/(.?S«rDXC(I*1»J)*nxr(l4l,j*l)*DXCCi«j)*nxC(T«.l4’1) 

1  )> 

l>TE*DTE*(1  -*PIH*I,!H*C1«C1  1 

AF  <T»J  )«AF!A»1  (V.FECI41  ,j)*CEC Ff  1*1  /  J  >  >*CF  (  J  )#0IF) 

1  —u  FF(I*1/J)*CF(.I) 

iiToXTF*<1  (1  +  1  »J)-T(I/.I  ))/(.?$*  C9XC  «  !♦!  ».l)*OXC  (1*1  /  J  ♦  1  )  ♦«  X  C  (  T  ».l  )  ♦ 
1U»f  )  )) 

TP»./5«{T{I,J>4T(T*1,.I)4TCI/J*1  >+T(I*1,J«.1  )  ) 

I  *  (.1  .Fw.NJIll  )  Trja.$*(T(T»*J)*T(l+1  #»JJ)  ) 
T«»./SafTfI»J>4T<T*1#J>*TCI#J-1'4T(|4l#J-1>> 

IF{.I.F0.2> 

DTi)FTAE*(TU-TF)/OVCfI*1»J) 

C^a.S*<l>ETA*F(I4l  »J  )4P6TAnf  C  J41  ,J4H  ) 
crF(.O3F|M*oIM,C1*ci|*r.AKF*AFFAEU*0TDETAF 
CCE<  JlaCCFt  J)*Fin*Cl*r-A*,EAA«>FAEw*«Fl  i|Y*«WFT /CPU / FI  OUT 
Sli  C«.JTirillF 

DO  1  no  t 

.1*1 

AOFAM*OXC(I/J*1)*»7f(1) 

GW*OFH(I»J)*V<  l,J4l) 

CM»<;u*aPFAiJ 

C1«.$*<BETAnF<I»J4l>4»»eTA»MI4l*J4l>) 

C?»0EH<  t  #J  )*UU/J  )*A»FA»f 

c»’*r'i+n*pjM*C2 

r,*rirjar-.4T<i«.i) 

PI  w«F  A"r  *APfcAh /<.?■>*  COYCC I  »J4i  >40yr  (T4l #.U1 ))  ) 

(>T(4s()TiJ*(  1  .*PIF*PIH4C1*C1  1 

AU(  )*AMAX1  (fc  FMf  |  »j*1  >Prti»“(1  .-WFIM  t  #.!♦')  )*CN#OIH>“WFf  (  T  »J*1  )*cw 

C4*.s*<nxluF{i,.i+i)  +  otinr(i*i/.i*i)) 

oTi,yiws(T(i*i#j)-T(i-i,j)i/(i)XcU*JAi)A.,i*<nxr(i-i»j4i)*oxcfi^i» 

i  j  ♦  i )  > ) 

rrj*PTH*PlH*c1*r4*r.Ai'n*APFAN*BTPXTJ 
(:?M=CCI/4PlH*C1*FAf,»AA»FAM*UFLI'X*SUET/CPU/FLOWT 
l>n  mi  .l«?/>'jP1 

---—CP  1PIITF  APE*S  AMU  VPU'MF— — — — — - ——————— 

APE*i*DXC<I/J+1)*P7C(1) 

APFAFV'spyC  (T4l  ,.\  )*07C  n  ) 

APEAOIIsAPF#YYCI,J) 

—— calculate  cor- wept  tow  cof  f  f  i  picnts - - - — - — — — - 

RM*  <  or  M  (  I  /  J  )  *  M  ,-MFH  (  T  ,  J  +  1  )  1*DF»' (  X  ,  J +1  )*gEn  (  I  »  J*1  )  )  A  V  (  I  »  J41  ) 
<;f*(ofij(i,j)*(i  ,-wff  <  t^i  ,jn*i'eM(T+i».i)»ucE(i*i>j))*iiu*i»j) 
RPaCoFWClsJ  '*(  1  ,-WFP(1  )  )+PE»'(T,.|  )*WfO(1  )  )*U(I»J  ) 

C1»f« 


CNsGU  +  ARE  All 

C11«.S*(DETADF(I,J+1)4DFTADF(T4l,j4l)) 

rM»fll  +  t1 1*PJHaC?*ARFAN 
C*J*CE( J) 

CF(J  >efiF*ARFAFW 

C12».5*{I>XI'*F<I*1»J)*»XT0F<J*1,.U1)) 

C?«r»FN<T,J)*WCI,J>*(1.-WFF(J  +  1,.l))+l)E*l<T4l,J)Aw<l4l,J)*EFF<l4l,J) 

CF(.I>«CF<J)4c1?*PIU*C?*ARFaFW 

ci'*f  0(1  »J  ) 

co(T,j  )3G0*ahfa»u 

— —  CAI.CIH aTe  DIFFUSION  COEFFICIENTS——————————— 

IF  (.1. IT.il  Jill  )  6AHM«6|/T  <  I,J  ) 

I  *<J.FO.I.JHS  )  PAMMbOE  T(I,NJ) 

IF(J.IT.MJUI)  GAII'lEsf-^Tf  I»J> *0X0(1 4l  ,J4l  )/(0XC(I  +  1#l*1)'*D*Cf 
1 1  #J41  >  >4GPTf !♦)  #J  1*0*0  (I»J4l  )  /  <oxf  (1*1  /  J*1  )4DXC<I*J4l  )  ) 

TF  (J.FU.I4JM1  )  P  AtlF*F*6t*T  ( 1  »hj  ) 

I«CJ.NF.?>  P  A  F  S  F  aPMT  ( T  »  J  “1  )  *  D  X  C  F  I  ♦  1  »  J  )  /  (  0  X  c  ( I »  J  )  +  0  X  C  (  I  ♦  I  #  .1  )  I 
1 ♦Pi  IT (T  +  1tJm1)*DXC(IrJ*/(DXC(lrJ }  +  »XC( 141 ,J) > 

I  FfJ.FO.?)  0-ArSF*.5*(FrlT(t»1  )-»6*T(l4l,1  )  ) 

PAMFs.b*  (fiA**NE4BAI»SF) 

I  F ( J .1  T.llJilI  )  ftA(ID».5*  (FmT  (I  *J  )4fi**T  (Ia4“1>) 

I  F  (.1  .FU.flJIII  )  CArlO».S*(fil‘1T  (I»NJ  )4Gf1T(  I /E'J*»2)  ) 
ovijP*.?s*  (dvc  (I ,  j  l  +  dyr  (i+i  ,j  )  1 
IF  (j.FO.Njn  )  PO  TO  *2 
«l  i)YriP«Dy^P4.?5*OYf  (I#  i4l)*Dvcfl*l»J4l)) 

*2  ly  IfJSft  Al  lfJ*  A  RF  AE'  /  B  YNp 

i)T,*«di«*(1.4PI*:*i»Ih*cii*C11) 

oxFP».2SF(Dxcn#j)4(»xr(jyj4i)) 

S3  DVEP  =  DxF|*+.?b*(0xr(I  +  1  ,J  )4DXCf I*1»J+1  )  ) 

•4  OlE*GAr’r*A«FAF'«/DXFP 

dte*oT6*i1.4PIm*PIh*cI2*C12) 

D7UPc.5*o7C  f  1  > 

PS  07'lPeD7DP4.S*07C  (1  ) 

*0  DTd*PA,iB*AHFa01i/07DP 

— calculate  mass  source  for  usf  jm  stahilts*ti on  procfdiirf— — 
s»-prcr'-rs4CF  <  j  )-cu+ro  (1/ j  )-ru 

COsAUAXl (O.P, SEP) 

COo«CP 

.....  A  SSFIUU  E  PAlr.  COF  F  F  T  C  I  ENTS———— — —————— 

AN  (  T  y  J  )  »  Af*  A*  i  (  +■  FU  (  I  r  J  *  1  )  *CN  /  —  ( 1  •— ,JFN  (  I  »  J  ♦  1  )  >  *CN*  0  T  N  I»W  FN  (  T  »  J  +1  )  *C 
A«  (  I  ,.l  )*AN  (T/J-1  )4CS 

AF(T/J)SAPAY|(WFE(I4J,J)*CE(J)»-(1.-WFE(I*1#J))*CE(J)»DIF) 

1  — u  FF(I41»J)*CF(,I) 

A'4(J,,|  )sAF  <y  —  1  ».I)4CW 
A"( T ,J >*AB(T,J )4CU 

A  *M  I  »  J ) « AP AX  1 (4 ro(1 )PO0(I#J) A-(1.-WF0(1 > )*CO(I»J)/0TD) 

1  — u  F  0 ( 1 )*CB(T/J ) 

S»l(T,J)eCPi>*T(I,J) 

V«L»APMXY(I#J)*D7C<1» 

Slid  »J  )>SUd»J  >-(DE*»0*J  >*W(J#J>*OFl  IIX*SWFT/FL0WT)*V0l*P7  0  (1  ) 

1  /rpw 

SP(I#J)««CP 
rrs»cru 
crw»cr f(j) 

„TDXTF»(TCI41,J)-T<T,J))/DXFP 
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Cl3s.5*<0ETA0F<I*1,J)*DFTADF<T*1,J*1>> 

TF(J.PQ.MJnl)  CO  TO  3*33 

TN1«T(I,J )«M .-WFP(T4l ,J ))*T(T+1,J)*WFE(I*1 ,J) 

TN?aT  (  I , J  *1  >*M  .-VFF(T*1  ,J*1)>*T(I*1,J*1>*JFE<I*1»J*1) 
.jFUTaDvC  (  1  +  1  ,J)/(BYC(T*1,J)*DYC^I*1#J*1>) 

TNaTH1*(1  ,-WFNT  >*TM?*MFNT 
GO  TO  3*83 
3583  CONTINUE 

TNaT<T,*.'J)*f1.-WFF<T4l,NJ))*T(I*1,NJ)*UFE(I*1#NJ) 

*6*3  COiJTIM.IF 

TF(J.Fa.2)  r,0  to  37<?5 

T«1bT(I  ,J  )*n  ,-UFF  (T*1  ,J  >)*T  (T*1  ,.l  )*WFE(I*1  ,J  ) 

T*2aT< I ,J-1 >*(1 ,-UFF <»*1 »J“1 >1*T< T*1»J-1 )*UFE< 1*1 »J-1 > 
yFST«DY0(!4.1/J-1  )/  )+0VC(I*1#J)) 

TF»TS1*UFST4.TS2*(1.-V.fST) 
fiO  TO  3796 

3705  COrlTINilF 

T*«T(I,1  )*(1.-i»FEFI  +  1»1))4Tf  1*1,1 )*WFF< 1*1,1  ) 

3706  COiJTimiF 

OYoFTAfaCTt'-T?)  /OYC  (1*1  ,J  ) 

CfF(  J  )«PIH*PI«*C1?*f1T*(5AI'E*AFFAEU*BTI)ETAF 

CfFf J )»CCE  O )  +  PIH*Cl2*fiAMF*ARFAFW*fi(FLllX*SMET/f PW/ FLOUT 

Cl4a„5*(l>XlOF(I,J*1)*OXlDf<I*1,J*1)> 

I F ( J .F0.NJM1 )  GO  TO  4455 

T»'3aT  (  I  ,J  )*4FE  <  I/J  >*T  '  1-1  •  J  )  *  O  ,-WFF  (  I  ,  .1  )  > 
T»*4aT<I,J*1)*WFF(I,J*1  )  +  T(l-1,J*1  )  *  (1  ,-W  F  F  <  T  ,  J  ♦  1  )  ) 
JFm«BYC(I,J)/(0YC(T,.')*DYC<I,J*1)) 

T*'JaTN3*(1  ,-UFI.'U)*TN4*UF(JW 
(iO  TO  4460 
4455  CONTP'tIF 

t«jst<i,uj)*wff<i»n.i)*t<i-1,;4J)*(1.-ufe(I'N.i>) 

4406  CONTINUE 

UT|,*if;»(TN-T,iU)/uXC  <I,J*11 
Cr,4aPlH*PTH*cn*Cl4*6»MH*ARFAW*OTBXTU 
Cr<JsCfN*PlH*C1  1*GAMU«apFAN»GFt  IIY*3WFT/CPW/Fl OUT 
SM(T  ,J  )aSU(T,J)4CCE(.l>-CCW4fC“-rCS 
in  CO.JTP'IIF 
10(1  COIJTIWUF 
C 

FHaPTFP  2  2  7  2  7  2  "RPtUEP  POO  I F I C  AT  1045  2  7  2  2  2  ? 


CMaptfr  3  FTrjAl  COEFFICIENT  ASSEUPlY  *nO  BESin'J*L  SOURCE  CALCULATION  * 
C 

DO  Tor  IS?, NIPT 
DO  301  J  s ?  , »'  J  P  1 

AP(T,J)aAN(I,J>4fc*(I,.')44F(T,J)*AM{T,J  )4A«(I,.I)4AII<T,J)-SP(T,.I) 
HFSOPsAN ( I ,J )*T ( I , J*1 >*AS f 1 , J  >*T ( J, J-1 )*AF ( T , J  )*T  (  1*1 > J  ) 

1  *AW(T,J)»T(T-1  ,.l  )*AO(T#.l  )*Tf  I,J  >*Allf  I  ,  J  )*T(T#  »  ) 

1  -APU,J)*T(J,J)*S1UT,.I) 

VOt«A»FAXY (T ,.l )*D7C  <  1  T 
SOpvoi aftPE At*VQI 

IF(-sf(T,J).GT.0.5*S0PV0l)  pFFOPaPESOP/SOPVOL 
IF(.I.Fj.?.aN0.uITFr.gf.maXIT2)  CO  TO  4808 
UBS0PTsPFS0PT*APSf"FSOR) 

480M  COiJTJN.lF 


C— — ttNOFK-PFLAXATNU' 

AP(I,J)«AP(T/J)/'JBFT 

Sl'(T/J  )»SU(T»J  )*(1.-U»FT)*AP(I»J  )*T(i»J  ) 

mi  continue 

m<l  C^MTIf.'IJF 

c 

CHAPTfP  4  4  4  4  4  SOLUTION  Or  DIFFEPEUCF  FOIIATiOnS 

IF(f»tTg».SE.HAXTT?)  BSC  f  INDFX  >»0.0 
TF(NTTFP.GE.MxJT?)  I"PG»r 
IF  (  WI7EP.lt.  I' AXTT?)  I“EG«1 
DO  4(|P  N*1,N$UPT 

IF(M.PT.1.A^O.KTTFR.<!e.KAyIT21  THF6«1 
4011  CALI  HS0LVf?,2,NI,NJ,JT,JT,T) 

IF(wlTEB.6E.f'AXTT?)  RFSORT-BESOPT+RSC  (  INDEX  ) 

RETURN 

F"D 


SUBROUTINE  caicte 

c 

cmaptfr  p  n  p  o  p  n  p  prei  i*inarifs  n  u  p  n  p  ii  p 
c 

C«NPON 


1  HFrORH,UPFu,HE$«RV,|IRFV,RFSORP,RERORw»URFW, 

1  IIPFP,0ESOPT»URFT,PESORt(,U0F<,PESORD»IIPFD, 

1  Rest' (’5,25  ), PFS« < 75, 25 >,rf$u( 75,25), RES* (75,25), 

♦  Du(75,25) ,DV< 75,25 ),0w< 75,25  > ,u( 25,75 ),v< 75,25 ) , 

1  N(25,75),P<75,?S),T(25,?5),TF(75,75),FD<25,75), 

1  PP  (?5,?5  ),i,Fi4  (25,25  >,  V 15  (25,25),  aw  (»5,25),  AS  (’5,25), 

1  AF < 25,25 ),mw< 75,25), am <75, 25), An ( 75,25 >,CE  (25) ,CD  (25,25) , 

1  CfE(2e),CfO(25,?5),AP(25,25),Sil(25,»5),SP(25,25),PXf(25,25) 

1  i)VC(25,?i),o;c<*),WFE(25,25),WFN(25,25),wFD(A>, 

1  AOMXV(25,25),F10(5r,S>,Nl0,W*EAN,IWDex,HY0niA,PAP,Pin(*0), 

1  VFLTM,Tlf.  ,TUALL  ,FLOVIN,ePe*T, 

1  ll'>FVJS,VISCPS,VFNSI7,PRANAT, 

1  pRTF,opF0,CwH,CnT,C1il,C2i1,CAPPA,El  0*, AL AM) A , 

1  NSUPU,  WSWPV,  W<WPj,  MSWP*,NSWPT, 

1  i<SwPtC,»SWPD, 

1  IPRFF,JPFFF,KPRFF,INDfOS 

rP.twon  TAilXR(25),T4tlX«(25),TAt'2<{25),TAt'2W(25), 

1  YPl'.'S5(?5),VPUi«N(25) 

1  ,IT,JT,KlI,ilJ,NIw1,i4j;11 

1  ,SUFT  ,FLnWT0T  ,CPW,OFlHX,Fl_CwY 

1  ,  M 1  ,  H  2 

1  ,RA,HP,THFTA,AH,0P02,FLPwAX,t>XlDF(2,:,?5),nETAnF  (?5,?5),PIH 

1  ,OKOXI (25,25) ,DP0FT< (25,25),HThR(25,25) 

1  ,PJ,WTH,FI.  OKU 

1  ,  Sit  AL  L,Su"S,S"PP,THMhP,Oxpy(  25,25  ),'*vt>x  (25,25  > 

I  evFI. 

CPMW0M/PLX2/UI'(25,25),VV(25,25),A»'U(25,»5>,ASIK25,25), 

1  AF(i(2«:,25),Auii(’5,25),AiHi<25,25>,AU"(75,25), 

1  ahv (?e,?5 ), * SV (^5,25 ),AFVf ?5,25 ),AWV( 25,25), 

1  rowTC’S, »P>,VPU'25),JT$, 

1  ADv(2e,?5),AMV(75,25),AA(’5) 

1  ,je,InrtTH,TtP (75,2) ,epp (25,2) ,PRP0P (5(1) ,*ewn  (25,75) 

1  ,PBAf'uL  ,  PUT  (75 ,25  )  ,AWIISS 

1  ,P»DU(?e,?5),AK7(’5,25),A!fD(25,?5),AKA{?5,25),RVT<25,75),AKF 

1  ,AtfF7,AKeTn,AKfTD,FlP('»5),F1rZ(25),F1KP(?5),FlKA(25),MPVT(25) 

1  ,MoimP,riiiA(25,7  5),cniiR(?5) 

1  ,nOiimh7 

1  ,APU  (*’5,?5  )  ,APV  f  25,75  )  ,RR  (25,^5  )  ,‘am<;l  (25,?5) 

i  ,Y*SFt,riASP 

1  ,VlSV(25,?5),VA(25,?5),vB(2e,?5),VCf?5,75) 

1  ,RSC(e),iHFP,PAYiT2 

1  ,*»RS<75,25),rpd,U!TFH,HAXTT 

1  ,TI  EllSC,VTSl0(5P),xm  (25,25) 

OtHFDSXOw  GFU(25,75) 

r-——---  IPTF  TEMPORARY  USB  0  F  PP-ARPAY  --- - .......... 


FOilT  VAL  Ff)PE  <ep  (1  ,1  )  ,REN  (1  ,1  )  ) 
r. 

CWAPTFR  111111  AsSErtilY  OF  CoFFFiriFNTS  111111 

c. 


peSPR XsP. 
JP|«1«Jfi-1 


on  m 
I«1 

ARFAFWeOYC  <1  +  1  »J)*07CM) 

AKi».swPiH*roy  mpu^i  ,j>-»r>xioF(T*i  ,j*i )) 

AY?b.5#»>ih«(0ETAdF(I41,.|)4{,fTA|>F(T41,J41)) 

1 ) )*AK1 

l>Ve*OYC(J4l/J)4.5A(DYf(I4l»J4l)4DVC(I4l»J-1)) 

IF(.I.FO.i>)  «YF»nYf  {l4l,J)*.5AnYr  (T4l».l4l) 

D*HYfs( (UfE<l  +  1rJ+]  )AYpYl4^»J41  )  4  f  1 WFF (  T41  # 

1J41 ) ) 

1«TFfI,j4l))-{WFF(T4l»J-1)*TF(T4l,J-1)4{1.»uFEU4l,J-1))*TF(I#.l- 
111)) /PYF 

RA1lFs.'iA(VH(I/J)4VTS<I4l/J)  )/P»TF 
rrf(.|)»PAME4Atfl*Atf?*0FDYE*AFFAEW 
CF(.I  )*fie*A«FAfi. 

BTp*(;Al-)E*ARFAFfc/(.?F*fOXC(I4l,J)4OxC(I4l,.|4l)40XC<I»j)4nxr(T/ 

1 J41 ) ) ) 

oiE*ore*(i.*AFiAAifi ) 

AF(t<J)®Af,Ay1  <WFE(1'»1»J)*CE(J>/-(1.-WFE(I41  #J))*CE(.I)>0IE) 
1-UFF(l4l,J)*CF<J) 

so  coutjnhf 

on  mo  t»7»NJ"1 

J*1 

apfaobi,xc<i*j*i  >*nzo<i ) 

five  Off! (I,J)*V(J»J4l) 

AR1«.5*(0XinF(I,J4l)4i»XT0FU4l,l4l))*PIM 
*«'?«.5*P7H*f0FTA0F(t#.l4l  )4i)rTA|)F{T4l,.l4l  >1 
f,M*p»j  +  (>Fri(I/j)<(uFMfI,j41)*W(T/.|4l  )4(1.-wFn(I^J41))«m(I«J 
1  )14AK? 

OX.JBOXC  <J*J+1  )4.J4<PXr<T4l,J4l)4DXC(I-1»J4l)> 

DFnx:4*(TKl4l,j)-TF(I-1#4>)/l»XM 

r,A  tP*VIS(I,J  J/FPTE 

Crii*r,A,lM«AK1*A<^*ARFAM*0FDXF' 

ever >*A9E AU 

njVsr  AHl.*A»e  Ai,  /  (,2Sa  ^DYCf  I,J41  )4f>Yf  (l4l  ,j4l  )  )  ) 
«INeCIM*(1.4AK?*A|<?) 

AMO  »  J  )»AF*AX1  (WF|J(I»J*1  .•MFF'(I»J4l  ))*Cn*D)N)-wFMT»J41)*CN 

on  101  .la?,JGP1 

— ■ — 1 -COMPUTE  APF  A  i  AND  VO U t'*1F  ———————————————— ——————————————— 

AOFA  j«oycO/j*l)*r»7f  (1) 

APFAFVeDYC (I4l ,J )*07C  f 1 ) 

A»FAill'cAHFAYY(I*J) 

- CALCoiATt  CONVECTION  CoFFFiriFuTS— — — — — — - - - - - - 

«Weo>F0(I,J)*n.-WFN(T,j4l  ))40EM(T»j4l  )*«FI(  (  I ,  J  41  )  >4  v  O  »  J  4 1  ) 

(>F*  (  OFU  (  I  *  J  1  P  <  1  WFF  <  1 41  r.l))4f'EM(I4l,.l)*WCEfI41,j))4iifl41,j) 

A<?  =  .5*PlH*(PETADF  O ,J41 )4nETA"F(l4l ,J41 > ) 
IK1a.^*PlH*(PXTDF(T4l/J)4DYIPFri4l,J4l1) 

rn*(;M4{ uFud  #  j  )*u{  i ,  i  )*  <1  ,-ufnU  »j*1  )  )*ofm < l» j*1  > 

1  *V(T  #.141  )*VFNO  »J4l  } 1 *Arf  ? 

BFofiF4ft>Fi4CI,J)*W(I,,l)*(1.-WFE04l  ,J  )  )4 
1  nFN(T4l*J)4g<i4l,j)AHFF(T4l,J))»AKl 
fined,  F,j(  J  ,J)*(  |  .-WFD(1  ))4PEM(T/,l)*uFD(1)  )  *W  <  I  »  J  ) 

C«ef 

CM»r.ii*  apfao 
CV*f F ( J ) 


Ce<,|  )*GF*ARFAFV. 

C«»»P 

— — —  CALCULATE  DIFFUSION  COEFFICIENTS— ——————————— 

hA.4M«VJSV(I#4)/PRTE 

fiA»Es<VIS<I#4)*(1.-WFE(l4l  #4) >4  VIS(T+1,')*WFE(I*1 ,4> >/PRTE 
GA*lfta(VTS(I  #4  )*(1  .-WFO(1  )  >4  VTS(I#4>*WFO(1  )  >/PPTE 
ovup«.?s*(ovcn,j)4evo<i4i,j)) 
si  DYMP«0YNP4.?5*(n  YC(t#.i4i  )40VC(I+1#4+1>> 

R2  DTi4»fiAMN*ARFAN/0YNP 

0IK'*01N*(1.4AK?*AK?) 
l»*EP«.2S*(DXC  (I#4>  +  0XC  (I#441  ) > 

PS  DVEP«0X  =  P4.?5*  (PXC(  14  1  #.|  )40XC  (I  +  l  #4*1 >  > 

•°4  0TE»6AHE*ARFAEW/OXfcP 
l>TE«OIE*<1  .*AX14AX1  > 

D70P».5*D7C'1> 

*5  D7DP*D70P4.5*DZC(1  ) 

Pft  l)TO«GAi‘IO*ARPADll/07iJP 

- -  C«l_r"L  ATE  (IASS  SOURCE  FOR  USE  I«  STAB  It  I  S  *T  ION  PROCF0URF— — 

s’**p«er-cs4CF<j)-cw 
CPaAi’AXl  (0.r,Sl<P) 

cpo«cp 

rcw«rcF<J) 

0VE»DYC(I*1#4  )4.5*fOYr  {T41#J4l)4DYCC  1*1 *4-1  )) 

TFCJ.EQ.?)  OYE*DYC (141 #4)4.S*0*C (141 »j4l  > 

DPDVF*(  (JFE(l41,j4l  )*'IF(141  ,J41  >4(1 .-WFF(t4l# 

1  J41 )>*TE(I»J41))-(UFP(I41,J-1>4TF(I41,J-1)4(1.- 

2  NFF(T41,J-1))*TE(I>J-1>)>/PYE 
Ar5*.S*PIH*(DETAOF(l4l,J)4OFTA0*(l4l,j4l ) ) 

CCE(J>»CANt4AXl*AY3*0*DYfc*ABEAE« 

C CS*f CN 

DXN»PXC(I#j4l  >4.Sp(DXC(l4l  #441  >4DXC  (t-1  ,.|*1  )> 

"FDXN«( (WFN(I41#J41 )4TE(I41#441 >4(1 .“WFN(I41 #J4! ) )4TF(T41,J 

1  >  >- 

1  (4FU(I-1 ,J4l >*TE (1-1 ,J41 >411. -URN (1-1 #J4l ) >*TE(I-1 #4  >  >  >/nXN 

AK4*.S«oIU*(0XinF(I#441)4PXIDF(l41#44l)> 

Cr;i»(iAMt!„AKA*Ak?*AnFAn*PFBXN 

— —  ASSFfIPLF  FAIN  COEcFICT  ENTS——————————— 

AN(I*4J*AI"aYi  (WFN(I#441  >*CH»-(1.-«FN(I#441  >  > *C,N# D IN>-WFf  (  I #.l *1  > *CN 
A«(T#J)«AN(I#4-1 )4CS 

«.F(T».I)«APAX1  (hrE(I4l#4)*rE(4)#»(1.-WFF(l4l#4))*CF(.l)#DTF> 
1-VFF(I41,4)*CF(4) 

Au(t,j>»aF(T-1#J)4CW 
AU(T#4>*CU 
Sl'(I#.l)»iCP04TE(T#J  > 

SP(T  .J )*-CH 

Slid  #4  >eSll(I#4  >4CCN-rcS4CCE  (4  >-CCW 

A»1».75*(DRf>XT(I#4)4D»DXI(I4i#4>4PRDXt(I#.l4l)4DRDXI(I4l4j4i>) 
A»?*.?5*(DP"ETA(I#j>4'tRDETA(I4l#j)4DRDEi’A(l#J4l)40RnETA(I4l,j4l)) 
AF1«.?5*PTH4(DXIDF(I,.I  )4DXXnF(l4l  ,4  >40X1 0F<  I#J4l  )4DU«F  (1 41  ,4*1  >  > 
A*?«.?5*PIH4(0ETAr>F  (I  #4  )4neTA*F(I41  #4  >  40ET  A  0  F  <  I  *  4  +  1  >  40ET  AO  F  ( 1*1 
1#44l )) 

AH1«nXDY(I#J) 

A«2«0Y0X(I#J  > 

Au3».?b*(MTMR(I#4>4NTHH(14l#4>4MTHR(I»44l>4HTHR(I4l#4*1>> 
0YEW«.!,*(DXC(I#4)4DXC(I#4*1>  > 

DUO XP«(U(  1 41  #4  >-ll(I  #4>  >  /DXEW 

VP«.5*(V( I#4 )*V (I #4*1 > > 


D»0VO«0X0V(I/J) 

TFPMaot'OXP*VP*PXOYP 

OvMSa.5#<DYr(T»J>*DYC<I4l»45> 

DVDYP»(V(I#.I  +  1)-VU»J^)/DYNS 

OYOXP»UYOX(T/J  ) 

TPHP?*OVOY(»+tlP*OYf>XP 

*»wp7P»n. 

VPavEP*UFF(T  +  1 ,J )*v®*  M .-WFF (T  +  1 ,J ) ) 

V«aVP*WFF ( l/J )4VWW* (1 .-WFF ( } *J  )  > 

OVOXP»< VE-V-O /DYEW 
tlNrja.SaOHI  +  l  /J*1  )+U(’  ,J*1  )  ) 

.|NbIMP*MFN(t,j-»1  )+i|P*M  .-UF*'<1  «.l  +  1  )  ) 
ll«S«.S»  (u(X*1»J-1  )♦••<»#  J-1  )) 
llFalip*JFN(I«J)4ltSF*<1.-WF*(TsJ)Y 
0*'l>YP»(lltJ-ll<;)/DYu<; 

TF(*»i.*DVOXP  +  UU0Y^-VP*"YnXP-l'P*t>V0Yp 
W«>a.5*(U<  J,.'>  +  I  U*J>> 
jPF«.5*OJ(I  +  1/j)*'W<T4i,j)) 

V»Mja.5*(u(I-1»J)+W(T-4,J  )) 

UFaWef*UFF<T4l ,J )4WP*  M .-WFF  C I ♦ 1 ,J  )  > 

WWaVPPVJFF  <!*,!) 4WWW*(1.-WFF(I»J)Y 
DWOYPa(WE-WV')  /P  YEW 

i<n  Da.  F *(  H  (  I +  1  ,  j  )•*.<!(  I  ,  J  )  ) 

im*|iDOawFr.  <i  )4iip*(i  ,-uFn  (1 ) ) 

IF(PIH.Fi».|).0)  FO  TO 
DU07P«0. 

TFMP5aDWDXp4AM34Dlin7P*AK1*0|l0Xp4AK2*DIIDYp*(-AX?*AM24AX1*»H1- 
•  1A»M*AM3*aP2/AM )*VP 
3R06  C°NTIN(IP 

I r (Plt'.Fo.U.U)  TEPwSaOWOXP 

VnDa.5»(v  < I ,J-H )+M(T *■>  )  ) 

V»ti».5*(V<I#J-»  iWWd/.l))  * 

vnsvD9*uF0 (1 ) *MP*( 1 . -W  FP  Cl ) ) 

VII»VP*>JFD  (1  >+Vl!ll*(1  .-WFP  (1  )  ) 

D«D7P*<  VD-VH)  /l)7C  M  ) 

UMU».5*(wf  I»J4  l)'MJ<T/.t  +  1  )> 

W«Sa.Sw(W(I»J-1  )♦'<<  1/  '-1  )  ) 

^M*W,4W*WF»»<T  f  J  +  1  )+WP*  1 1  .— VFk*  (  I  ».|4l  )  ) 

'JjapP*WFn(J»J)*lr.'SF*C1  .•UFA'  (!/•■)) 

0«0YPB(WW-HS) /BY MS 
IF(PIH.F>J.O.n)  FO  TO 

TFMPf,*o«ljYP*AH3*UV0  7P4AX1*BVBXP*AX2*DV0YP*(-AriAAH1*AX2«AP24 
1 A«3*AP?*AH3/AX1 )*MF 
3M«7  COuTtMtlF 

IF<PIH.FF.().(])  TEP(10»nwnYP 
TP»a3«fl<i *DWOXP*AX2*BW0yP 

r  — — — — —  —  F E  WE  P  A  T I  OH  T F PP  — --- - - - - — 

«F|J  (  I  ,  J  )a(2.*  (TFRM1  *a,’a.TE#1'«7**2*TFPB3**?  )*TERP4*A?4TE»MF**r 

1+TgP!tO**2)«PEN  (J»J)AcwU*TF<T»J)*TF(T#J)/(er>(I»j)4FMALL) 

TF  (  Y  A  Fi.t  .tJ  E  .  1  .ANO.NITE°.FF.NOllPn>  SO  TO  F9*2 
IF(NiTEP.LT.MOUPP)  FO  TO  57?1 
I«(PHA:4f)L.EO.C.7U«)  APHfar.OUOl 


IF  (PRANOL.E0.7.03)  *KPC«0.t)rni 

,  J  )■(?.*  (TFRM1**T4TEFt-.7**2*TFRP3**7)4TFRM4**24TERn5**24 
1TFrfP$**7)*0FNf  l,j  )*CMtA  (1*J  )*TE  f  1,J  )*TF  f  l,J  )/(EMI».l)*SPALL> 

fiPiJ(dJ)BGffi(I,.|)-A«ef*nEki(I/J)*DXDY(I»J)*(?./3.*TEfx,j)4(.5<t{ 

1HfI,J)4ll(l4l,J)))**?)*|JVT(I.J) 

5721  COMTIKI'C 

G«  To  5923 

5922  CONTINUE 

[  /  J  )s(2.*(  rFHI"1*A74TE»H2**2TTFRN3**’>+TFRt<4**74TEPM5**2 
14TfPmA**?)*OEP<I»J>*CwIIA(T/J)*TC(T/J>*TF(t#J)/(FD(I»J)+ 

1  S*-«l  L) 

5923  CVTIfllF 

vnL*APEAUII*f7r  <  1  ) 

SM <  T , J  >*SO ( T , J ) 4REW  f I ,J ) *VOl 
JF(NITFP.LT.NOIIMH)  sp  <  J,  J  )sS.pf  I»J  >  — r  MM 
1*OOT*OEML  I/J)**?*TEfl»J>*VGl/VlS(l>.l> 

I  F(NlTE9.GE.«0t.'PR)  SPC  I*J)*SP(I  »J  >-ei«>'ACI»J  ) 

1wroT*DEW<  I/J  )**'»*TE(I#j)AVOt  /  VISLT/J) 

c 

ini  CONTINUE 
inn  continue 
c 

CHAPTER  ?  2  2  2  ?  2  PROBLEM  "OM  F I  f  AT  I  oH<t  2  2  2  2  2  2 

C 

CALI.  POHTF 
C 

CHAPTFP  1  FINAL  coefficient  ASSFMPLY  »NO  PESIPIIAL  SOUPCP  FAl.C«!LATTO»l  ' 

c 

o«  ?(in  IS?,NIP1 
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.  1  ,  1 1  EIJ?  C  ,  V  T  S 1  D  (  50  )  ,  XPLI  (25,25) 

f— ■ — ■ —  IM15FP  RELAXATION  FACTORS  FOR  T"E  1-0  RFQ I  ON— —————— 


"P  FI (1 ) »"P  F" 

IIP  FI  (2)*"RFW 
IIP  FI  (3)«"RFK 
"O F 7  (4  )»"OFf> 
ilRFI  (5  )«"PFT 
"°  F 1  (A)a|iPFVIS 
N  T "1  a" I « 1 


NJMIsNJ-1 
MTM?  =  NI-<> 

JSTN1«.|STAHT— 1 
T«Tt»i«lSTART-1 
Af  JSTfM  )sp. 

r •*•***«* »**«**«**<*  A*************************************** ****** ****** 

r*  SOLUTION  FROM  THF  tupe-axis  To  TNE  TUBE-WAIL  * 

f ft******************** ****** ****** ******** ********** A *  **************** A* 

r  — — —  conr EficF  w-f  s  u  f  e  p  s - - - — - - - — 

J«ISTAPT 

XTAPT*ISTART 

,|TAPT«J  start 

T  F  (  TliOEX.Fa.G)  GO  TO  All 

H.INFIJ*N.I*N1 1> 

lJ1D?st'1D+? 

1)0  R21  .|eN1P2,f.JNFW 
F1D(.I#INdEX)«»PHI(2».I-N1D> 

R?1  CnMTlf.'(|E 

UJMFJ1»NJNEW-1 

r - - - 1  (iraTlOM  OF  POINTS  IN  PliF  DIMENSIONAL  EXTENSION—————— 

P1D(n1d*4)«PA+.5*OyC<2,4)40vC(2*3)*DYC(?#2) 

Rin(inn+3)«“A4.S*DYC (?/T)*DYC(2»2) 

RlD<NlO*2)*"A-*.5*nYr<2,2) 

»1D(iJ104l  )*P> 
mt»fl)*n. 

Dn  412 

R10f.l)  =  PlD(.l-1  )*R1  0(M  0*1)/ FLOAT  (N10) 

A 1  2  CONTINII*. 

0— — — — fONNFMCE  S-N  TP AVFRSF— ———————————— 

FI  i)  <1  ,IN|>Fx)»F1  0(2# INDEX) 

Fio(i,D»r. 

IKTHOTH.EM.1)  GO  TO  Fb«9 
F1IWi«JNPu#INDfx)*n. 

A 609  C 0 rj T  I N II F 

rfJST»’1)«F1P<JSTH1»TN»FX) 

111  DTaNI  D  +  3 

1)0  4,11  .IbJSTAPT  »  N  J  M  F  L 1 
TF(.I.FE.NloT)  C-0  to  Ar3 
IF(IUDFX.F«.1>  PRVARbI. 
je(Tll«FT.E0.2)  PHV*P«1. 

I  p  (  IiJDFX.F0.3)  PPVAPbPRTe 
IF (INDEX. EO. 4)  PRVAR»PRFD 
I F (YA«M.F0.2)  60  To  4284 

ie(NxTEP,lT.H0UNR2.ANn.INf>EX.FQ.5)  PRVAPa.9 

IF  (NITFp.GE.H0h»*r2.AND.TNDEX-F<».5)  PrvApbF  j  k  z  (  J  )  /  I  FI  KD  (  J  )  4  sN  AL  L  > 

GO  TO  4285 

42*4  IF  (TIJDEX.F0.5)  PRVAP*. 9 
42*5  rOWTINHF 

AfJ)«.5*(VIS10{J)4VTS1D(J4l))*.R*(R1D .  *  )  ♦»  1  D  (  J  *1  )  ) 

1  /  P  1  0  (  J  ) 

i/fpiixj+i  )-Pir<,m 
1 /PRVAP 

R(J)a.5*(VIFlD<J)-»WJSlD<J-1))*-sA(RlDfj)^P1D{J-1)) 

1  /P1MJ  ) 

1/fR1i>f  J)-R10<J-1)) 

1 /PRVAP 


JFONOFX.FO.*)  A(J)»F'J)*PRVAP/(.S*fVTSlD<J>«-VIS1r>(J*1  )))*(.$* 

1 («IF10CJ)+VTS10f J*1 )  )/PRVAR-VTSCO$/PRVAPl-WlSC0S) 

JF(TNBFX.FQ.A)  P(  J  >»Pf.l  )*PRVAP/(.S*(VIS1  D<  J  )*VI$1D(  J-1  )  )  )*(.5* 
1(Vl$1B(.|)*VISlD(j-1>>  /  PPV/>R-VTS<‘OS/PRVAP  +  ''ISCOS) 
rF(THDFX.F(J.S)  A(J)»AU)*PRVAR/(.5*(VTS10(J)+VISin(J  +  1)))*(.5* 

IfVISltKJJ  +  VTSIOfj+lD/pRVAR-VTSroF/PRVAP  +  VlSCOS/PRAMOl) 
IF(|iiOEX.Fq.5>  P(.l)»fifj)*PHVAP/(.5*(VTS1D(j)*VJS10(  1-1  )))*(. 5*( 
1VTS1D(J)*VIS1D(J-1 ) )/pRVaP-VISCOS/PPVAR*VTSCOS/PRANPL ) 

IFO.Ea.?)  P(J)«0. 

D(J)*ACJ)*H(J) 

rP(T:JOEX.E0.1)  0<J)»DfJ)*VI«11>(J)/R1D(J)/Pll><J)*.5*fRiD(j41)_ 

1  RID  (.1-1  )  ) 

rF(TM»EX.Ea.1 )  C(j)»  wiS10(J)/r1D(J)*.5*(F1B<J«-1,1)-f1D(J-1,1 
1))-(.?5*<VIS1P(J+1)4VTS1n(J))*{»1D(J'H)*RlD{J))*(MP(J  +  1,1)  +  FiD{ 
2.1  #1  ))/ (PI  D  (.1  +  1  )  +  R1D(j  >)-.?**  (VI'10(J)*VT$1D  (J-1)) 

2*(R1D(j)  +  R1P(j  —  1))*(F1D(j«1)  +  F1R(j  —  1r1))/(p1Dfj)  +  P1f)(,|  —  1)))/ 

3R1 D  (  J  ) 

J«( JODFX.FO.2)  r(.l)»-.5i<P1*>(J  +  1)-RlD(j-11)*DPD? 

IF  (IUDFX.FU.3)  PROOD  (.1  )■(  AHA  (FI  D(  j*1  ,?)-FlD(j-1«2))/(P10(j+1)- 
IRIp(J-l)  )  )**?*OFlJSIT*rMII*F1  D  /  (FI  Df  J  ,4)1*M*LL) 

TF(NITEP.l  T.NClirR)  GO  TP  73f»2 
t*(PRAKi>L.to.c.70P)  AKwr»n.poni 
Ie(PKANBL.E0.7.n3)  AKPC«0.0P01 

re<TNpFX.F0.3)  PRO0D(J  )»(  ABF  (FI  ft  (.1  +  1  ,?  )-Fl  D  (  J-1  ,2  >  )  /  (  PI  P  (  .1  +  1  )  - 
IrID(J-I) ) )*«2*DF JSlTAPriiR ( J )*F1 B ( J ,3)**?/ ( FI 0( J ,4)*FMALl  ) 
IPCXASn.FO.7)  GO  TO  7*8? 

I  *  (  IIJBEX.  EO.3  )  PRPOB(J  )»PPOBD<J'-A(CPC*DF)4«5lT/P1n(J)*C2./3.AFlB(J 
1 3) ♦F 1 D ( J  # 1 ) **? ) * F 1 R VT  F  J ) 

73P7  rOtJTIMiiF 

IF(iubfX.E0.3)  r(J)«PPODD(j)*.5*(P10(Ji1)-RlD(J-1)) 
IF(MITFP.LT.»J0Uf’H.AMD.IN0EX.E0.3)  D  (  J  >«0  (  J  ) ♦CPlI 
1*OFHSIT*DFNFIT,COT*Fin<J,TNOFX)/VTS1Df J )*.%* (PI P ( J+1 )-R1D<J-1 )) 
IP(NTTfP.GF.NOIiF"R.ANu.IN(>FX»EO»')  D(J  )»p(.l  )4CKIIRCJ  ) 
1*PFNSITA0EI1SITAPDT*F1"(J#TMDEX)/VIS1D{J)*.5*(P1D(.I  +  1)-R1D(J-1  >) 

1  c(A,ITFP.tT.HOi;’»R.ANO.I«lDFX.EO.A)  C(J)»fM" 
1*r1R»PRPoD(J)/VTSlo(j1*.5*(PlD(.l<>1  )-h1d(j-1  )  >*dENEIT*f1 n ( j ,inbex 

i-i  j 

T  F  (►•TTFP.GF.WOIiPR.AND.INdEX.EO.A)  C(J  )«riAHRf  J) 
1*P1P*PHOU0(J)/VTS10(J>«.5*(R10(.I4'1  >-R1d(J-1>)*DFN«IT*F1P(J»TNBFX 
1  ) 

IF(THDFX.FO.A)  ft  ( .1  )  *D  f  J  )4C2F*ftE*STT*F1  D  (  J  » INDEX)  /  (F1D(J,INDFX-1) 

1*FFIAU)P.5»(RlD(j*1)r01P<J-1)) 

IF<TNOFX.Fy.5>  0<J)»-ftENsJT*F1l>(J,2)/(Fl OWT*C Pw ) *$WFT 
i*'>Finy*.5*(Pin(ji'i)-RiD(j-i))*D7cn) 

JF(I*1Ffi.F0.1)  GO  TO  1030 

CAtlaf  (J)  +  AfJ)*Fir><j4l,tMf>fcx>*BfJ)*F1B{J-1,TNDEX)-D<J)*F10{J, 

1  I M  OF  X ) 

R«C(iPDEX>«»SC(TWDEX)*ABS(CATT) 

19PD  roriTir.’tiE 

D(J)»I)(.I)/UPF1  (INDEX) 

r(j)«r(J)*(1.-URFl (TWnEX))*p(J)*FlD<J»INDFX) 

GO  TO  A09 
40*  C O M T  I  (4 0 F 

... — — —  aSSE«BLF  TOKA  COEFFICIENTS - - - - - - - ........... _ 

A(J)»1./(P1P(Jl1)-RlDFJ))*VTST0(N1D)*P1P(*t10) 

n(.l)*1./(P1i>(J)-K10(J-1))*VTS1DCN1D)*R1P(**1D) 

0 (J )»A( J )♦»( J ) 


IF(J.FQ.2>  P(J)«II. 

coun. 

fcO  Tf)  409 

4ni  continue 

J.ImJ-fJI  n 

phi(iji#jj>*phi(?»jj) 

J»JJ) 

H(J)sAS(I,JJ) 

C<J>«AF(I*JJ)*PHId  +  1#JJ )*AW(T#JJ)*PHI  d-1  /  J  J) 
1*SHd#J.»>*Ar»(I,JJ)*PHt  (I,.IJ)*Aud»JJ  >*PMI(I#J  J) 
o(.ns*p(i»jj> 

400  CONTTNUF 

TFnP«i./<D<j)-em*A<.i-i  >> 

A(J)«A<J)*TERP 

401  C(.l)»(CfJ>T0(J)*C(J-1>>*TFHP 

C— — — — — — —OPT*  IN  NEW  PHI'S—————— 

DO  415  J.I»JSTART,NJNEW1 
.IX/JNFU+J  STN1-J  J 

F1d(J»INdEx)«A  <J ) *F10(J*1* INDEX > *C (J) 
I*CJ.6F«(M1»*1))  PMI<T,J-N1D>«F1D(J#INDFX> 

415  CONTINUE 
411  CONTINUE 

TF(TNDET.NE.S)  LL»1 
IF(TNDE*.F0.1 )  IL«4 
Ie(IHDEX.Fo.?)  I  L«4 
Ie(TNDFX.EU.3)  LL-2 
IF(T:jopV.Eu.4I  LL*? 

1  F(TtjCE».Fo.5)  LL-4 
1)0  79*7  l«1»Ll 


C———— COMMENCE  W-e  SHEEP-—--——— 
0  O  1i)P  t*it»ht,nipi 
C(jstpi)»phI(T/JSThi) 

C— — — — — — -CONFFUCE  S-N  TRAVELS*——— 

do  mi  Js.IStAPT»M.IN1 

PMI  ri»J)»PHI  (HIM.J  ) 
puI (II » J )*PUI (2»  J  1 

C— — — — —  AS*EPPl  E  TOf»  CoFFFIf  IPNTS— — — — 
A(,I)*AN(I/J) 

u(.i)«as(i#j) 

f  t  J  >*AF  (I,J)*PMI  (I4l#.l  >TAW(I,.l)*pMI  (1-1  #J1* 


1AD(T,J)*PMI(I,J)4All(I,J)*PHI(T,J)4 

isi'd^j) 

D  (  J  )  ■  A  p  d  *  J  1 

C— for  I  OPEATFR  than  I$T*»r  SPFflFIEO  VALUE  A*  $  POHNOaPT—— 
IFdNOEX.HE.O.Af'D.J.FO.JSTART')  0  (  J  )  «C  (  J  >  TOR  F  AT*  FI  D  (N1  r> 
1*JSTAPT#IH0FX) 

I  F(TilOFX.NE.(..AND..I.E«..ISTAPT)  D  (  J  )  »GPE  AT 
TBRP»1./(0(J)-B(J>*A(  l-1)> 

A(J)«A(.I)*TCRN 

101  C(.ns(C(.!)TP(.l)*C(J-1))«TFRP> 

r— — — — obtain  nfv.  phi  's— ——————————————— 

DO  1i|?  J  J«J  5TART/NJH1 
.1  *M.I  *.l  STM1  «J  J 

102  P«  t(I/J)»A  („*  )APHId,J  +  ,)*C(.l) 

100  CONTINUE 

C ************************************************************* ********** 


C*  INTRODUCTION  OF  SPFCIAL  TRFaTMFNT  for  cyclic  * 

c*  BOUNDARY  CONDITONS  * 

C  ********* ***************** ******* ********************** *******  ********* 

aiisthi i*n.r 

IFdUDEX.NE.O)  JTART».t$TAPT*1 

r— - - - --COPPEHCF  N-«  SWFFP-— —————————— 

do  ?nn  j«jt»rt#njmi 
CdSTP1)*PMIdSTHl#J> 

C — — — — - COMPENCF  W-P  TRAVFRSE  ———————————— 

DO  ?(H  Ia2#WIf*1 


A( l )atg d»  J  ) 
rtm«AU(I/j! 

CCl)aAN(I»J>*PHl  (I»J  +  1  >*ASd#.l)*PMI  (  I#J-1  >  + 

1  AD  (  T  »  J  )*PHI  Cl»J)+All(I»J)  *PMT  <  I »  J  )♦ 

1SH(I,J) 

DO  )*AP  <  I  »  J  ) 

TFd.EO.?)  GO  TO  307 
TPHP»1./(D<T)-Hm*A(T-1  )) 

C(I)a(C(l)TAU)*C(I-1))‘TFIIN 
H(I )aO(I ) *811*1 )*TE»P 
GO  T(l  ?01 
307  TFKPal./nd) 

Cd)«Cd)*TFRP 
MO  )»P  d)*TeRP 
701  Ad)aAd)*TERR 

B<NIH?)«A (MTP?)*B(MIP7) 

DO  30?  II*3»UIP? 

I*MTM?+?-II 

C(I)*A(I)*C(I+1)+C(T) 

30?  H(I)a*(I)*l)<MI)*P(I) 

PHIU,11a(C(NT(’1  I  +  AdJTK-l  )*CC2))/(1.-BCNTM1  )  -  A  (  N 1 1*11  )  *B  <  2  >  ) 
C— — - —————— OUT  A  III  NFw  PHI 

DO  303  Ta?,NI P? 

303  puid,J)aP<I)*PHINM1*r(I) 

P«I  IfJlMl  ,  J  )*PHINf11 
?P(I  CONTTNilF 
79P7  COilTINlIP 
»er|ipr,' 
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Sl'MBnltTTUE  PROFOD 
f 

chaptfr  n  n  n  c  p  n  n  ppei  ipina»ifs  noro«ooun 
c 

CAMPON 

1  RFSORll,UPFll,RESOpv,HRFV,RFSORK,PESOPw/URFW» 

1  liRFP»»ESCPT»HPFT#PE50PiC#i.lPFif  »PESO"D»UPFD» 

1  RFSU(75,25),rf  S«(?5,25)  ,RB$W(?5,25)  ,RFSP (75,25)  , 

1  oii(?5,25),DV(?5,25),DW(?5’,25),U(75,'»5),V(?5,?5), 

1  W(25,?5)/P(75/2*>/T(25»?5>/TE(25,?5)/ED(25#25'/ 

1  PP (25,25 ),dfn (25, 25), VIS (75,25), AN (75,25), AS (75,25), 

1  AF(75,25),AW(?5,75),At*<?b,25),A0(?5,25>,CF{?5),eD(25,?5>, 

1  CrE(25>/CrD(25/?5>/AP(25,75),StK25,?5>/SP(25/?5>/t>XC(75/25)# 

1  DVC(2S/?5)/D7C(4),yFE<25,75),WFN(?5/?5),WFD(4), 

1  APEAXV(25,25),MD(5P,5),N1D,WPEAN,INDEX,HYDPIA,RAP,Pin{50), 

1  VFl  IN,TIU,TUAI.L  ,FL  OWIN  , GRF  AT , 

1  "BFVIS,VlSCOS,DFNSIT,PRAMPT, 

1  PPTE,PRFO,CPi/,CPT»C1(l,C?W»CAPPA,El 00,,AL*PPA, 

1  ,JSUPll,  NSUPV,  N«WPW,  NSUPP,NSWPT, 

1  NSpPK,NSUPD/ 

1  IPREF,JPRFF,KPRFF,INDfOS 

COUPON  TAUXP<25)»TAUXP<?5)#TA»2P(75>»TAt'2N(25), 

1  VPLl'S5(?5)#VPLU«N(25) 

1  ,IT,JT,NI,U.I,NIP1,MJH1 

1  ,SWF.T,FLOUT0T,rPW,«FLUX, FLOUT 

1  »  N 1  ,  N  7 

1  ,.PA,RB,  TpFTA,  AH,0P07,FLOUAX,  DXIPF  (25,25  ),DETAPF  (25,75  ),»IW 

1  ,ORDXT  (?5/75>,DP0FTA(?5»?S)/HTHR(?S»25> 

1  *Pl,WTN»F|l)WU 

1  ,SllALL,SUMS,SltrP,tMllMP#l>XPY(25,75)  #PY»X(25,?5> 

LFVFL  2, lilt 

C0PP0N/PlK?/UU(?5,25),vV(?5,?5),ANU(25,?5),AS(i<?5,?5>, 

1  AFli(?*,75),*Uli(75,75),A»>U(?5,?5),»U'l(25,25), 

1  ANv(25,?5),ASV(?5/25>,AFV(?5,?5>/AWU(75/25>, 

1  CONT(?5,1P)/V«N(25),.|TS# 

1  aDv(25,25),aijv<75,?5),AA(?5) 

1  »JF«Iuoth,Tfp(75,2) ,e0P(25#2>  »P«ODO(5o>  »«ENM(25,?5' 

1  ,PPAWoL,GHY(25,25),A»'II$S 

1  ,pppu(2S,75),a*7(75,25),AKI>(25,?5),aka (?5,25),RVT(25,?b),AKF 

1  ,AKFT,AKFTD,AKCTB,«lP<25Wf  1\rZ<  2  5  )  »  F 1  K  »  (  75  )  #  F  1  K  A  <  2  5  )  ,F1RVT(*5> 

1  ,NOHUP,f|/MA(25,,5)  ,CrtllB  (25) 

1  ,NOuPH? 

1  ,  APU  < 75, 25  )  ,APW  (25,75)  /^PR( 25^75 >  /AURL  ( 25/75) 

1  »KASM#NASM 

1  ,VI$V(?5,?5),VA(25,?S) ,VD (25, 75), VC (25,75) 

1  ,PS(<5), jmef,PavIT2 

1  ,»PSC’5,25),HBi;,NTTFH,MAXTT 

1  ,TlFi(PC,VTS10(5P),XPt.L  (25,75) 

otmf.jSion  gfi:  (25/75) 

EOlITVAt  F'JCf  (PF  (  I  ,1  )  ,RF“d /I  >  ) 


(('PORT ANT  NOTICE.  ARRAYS  TA"..ETc.  ANA  YPUIS..ETC.  SHOUP 
HF  AODEP  OR  RFhOVFO  AS  NECESSARY  PEPENOING  ON  THE  PPESENCF 
(>F  "alls  In  EACH  PHOBIEP 
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c 

FNTPY  .HOOPRO 

c— ~wn  KooiFiCAfjci;s  for  this  hpoblbm 

RFTl'RW 

C 

CKAPTFr  72727272  0  *0**EMTIM  727272727 

t. 

ENTPY  Mftoll 
0*»  U?7»CMti**.25 

•  C— — — — — N-POMNDAPY— ■ —  — - - — 

DO  Pllfl  Ta2«NIP1 
TF(T.fit.Ul)  GO  TO  202 
?ni  a»*(I,*ij»i  >«n. 

«;n  to  ?P3 

707  A»*(I,N.IM1  )»n. 

YP«.S*OYC<I»WJK1  ) 

SOPTK«SOPT(Wfp  (  )*TE1  ZrMJHl  )  +  <1  .-UFE  <  I  )  )*TE  (  J-1  #NJM1 

1)1 

(iFIJHaWFF(I#njP1I*()FM(T,»,JP1)*(1.-WFF{T,NJ11  )  )  *  DFN  <  1-1  #N.I  M  ) 

YP|  IIS  A  SURE  (T,MJ««1  )*YPI  IISN(I)*M  .-WFF  (T#K'JM'|  )  )  *  YPU'S*’  <  T- 1  ) 

TF  (YPl USA. I E.1 1 .63)  «0  TO  7tlR 

TKIIL  T«OFNl»*r  !•'!»?  S»St)PTP*rAPP  A /AL«Gf  EL  OR*  YPl.  USA) 

TPHI  T»TH||LT*(1  .4PTll*PTH*DFTAOF  (T  #NJ  )*npTADF  (I»IXJ  >  ) 

an  to  ?n<j 

70*  T  1*111  T*1./YP*(1.*PTH*PIH*OFTAOF(T,NJ)*DFTAPFn»N.I)) 
1*(V1SV(T#»J*'1)*DXf<I-1/F'j)/fOXCfI-1»N.I)  +  D*C<I'NJ)>T 
?vTsv(T-i,Njpi)*i>xr(T,»>.n/n>xc(i-i,nj)*oxc(i*'NJ))) 


0 

700 

?0T 

7iin 

T  All XrJ  (  I  ) a-T**l)l  T*IIM #N.MI1  ) 

TFR«*aT.HIlT*.5*(nXf  (T/WJ)40Xf  (T-1  »WJ)>*D7CM  > 

RP(T»H.I**1  )*«P(  I  ,IJ.IM1  l-TFR* 

rnmiNiiF 

cpgTtniic 

TA, 1X0(1  )sTAliXU(*IT**1  ) 

TAI.IVNCMT  jeTAHXA  (?) 

on  ?i n  r»?,*'ii»i 

TF(T.RE.H?)  GO  To  ?12 

?11 

rnoTTfiiF 

Y°* , S*  0 Y  C (I#?) 

SOPTK*SORTO-'FF(T,T)*TF(I,7)4(1.-WFFa»?))*TF(T-1,?)) 
pC,j|>*WFF  (  I/’)*DF<lO»2>*(1  .-WFF(T»?)  )*I)PM(I-1  #?> 

Y °l  I'SAavFF  (T,?)*  YPU'S*  (I  )4{1  ,-4«E  (I»2)  >*Y°L"SS(  T-1  ) 
IF  (Y»l  I'SA.I  F.11.A3)  *0  T 0  71« 

T**m  T*0FUH*riiU?3*SQPTi'*f  APPA  /  AI.OG  *EI  OP*YPI  MSA) 
fin  To  719 

71  P  T him  T«YtsrOS/YP 

710  ‘  TAliXS  (I  )«— TI’I'L  T»l*  (!»■») 

71  *  TFwPaT;Hl|.T*.5*  (OXC  (I,?)  +  DXC  (1-1  *2)  >*DTC  H  ' 

?1fi  FP(I/?)»SP<I#?)-TEn(' 

AF(T»7)*n. 
fin  To  71(1 
71?  fPMTTMIIF 
7i  n  cphttm.if 

TAHXS(7)*TA"X«(3> 

TAtIXSdII  )  *T  AUXS  (IJTMl  ) 

UP  731  I»1»MI 
on  731  .1*1, MJ 


751  A*(T»J)«n. 

RETURN 

c 

CHAPTER  55Y35355V  POPEMTMM 

r 

ent# v  wonv 

00  ?3P  I«1#NI 
oo  no  j * i / m j 
AH(T«J>Bll. 
no  An(T,.i)»o. 

RETURN 

c 

CWAPTFR  44444444W  PONENTHN  444444444 

r 

FNTPY  wopw 
ccii7S«c«n*w.?5 

C— S-BOUNDARY— — 
DO  4?0  T*2*»JM 
IF(T,FF.N?)  GO  TO  40? 

401  COnTIWIIF 

YP«.?5*(DYCfI/2)-M>YC(T+1,?)1 

S0BT<*S0PT(WF0(1 )*TF  f T#?)  +  (1 .-W#Df 1 ) ) *TF (!«?)) 

3F»U«UF0(1 )*DEMl,?)*M.-VF0(1))*r>EN(I,7) 

YP|  IISA«UF!>(1  )*YPI  0SS(T)4<1.-WFdM  )  )*YPLI'S^(  I) 

TF  (yPl  IISA. I  F.  11.43)  GO  TO  40* 

TNULT»0FNW*ff«|l?S»rSO»TK*f  APPA/ALOBf  El  OG*YPl  II S A > 

(jO  TO  405 

40*  T""l  TaVTS  C 0 S / Y P 

405  TAU7S  m«-TMlll.T»W(Ti1) 

TFopaTHI'l  T».5*(07Cn  ) *0 7 C < 1 ) > *DX C { I » 2 > 

SP<T,7)*SP(T,?)-TFBP 

A«<T»?)«I1. 

GO  TO  4?P 
40?  rONTINIIF 

IF(T«nFX.NE.U)  00  TO  4?0 

SM(  T  ,?)»SI.I(  T#?  )-OPBTA  <RA4.25*(0VC  (I  #?)46yp  (  T*1  #?  )  )  )*0?C  (1  )* 
1D7C(W7)*.5 
4  ?o  cooTTNUE 

C— ————w-HO|INt>ApY— 

on  4 ?5  T»?,F'IP1 
IFO.I  T.Ml )  GO  TO  41? 

411  COMT  T  K'llF 

YPa.?5*{DYC  H  »NJN1 Y40YC (I4l ,N.M1 )) 

SOBTKaSOBT  (  H  F  0  (  1  )  *TE  (  T  »N  J  r  11  ♦  (1  .-WFI)  ( 1  )  )  *Tp  (  J  ,N  J  Hi  )  > 

DFNu»UFf)  (1  )*0FI«(I#NJF'1  )♦  (1  .-«FD  M  >)*DFN(I,NJM1) 

YPl  I'SAaWFD  (1  ) * Y PL MSN  (  T  ) ♦  (  1  ,-WT 0  M  )  )  *  Y  PL 'I  S*  (  I  ) 

IF  fYPl  MSA.LE.  l1.45)  G(>  TO  41* 

TPUl  TaOFNW«n»l'?5pSuPTY*f  APPA / ALOG < El OGpyPUIS A ) 

T*lll  TsTNtlLT*(  1  .♦PIrt*PTH*.5*f  DFTADF(  I,F'J  )4f)FTA0F(I41  »NJ  )  1*  (DFTAOF  ( 
1  T/N.l  >4I»ETA0F  <T*1  ,HJ  )  )  ) 
pn  TO  415 

4l*  TN|llTa1./YP*(1.*PIH*FTM*.5*(OFTADF(I»NJ)4r)ETA0F(I4l»NJ))*( 

1DFTADF  (T  »flj  )40ETA0F  (  1*1  rUJ  )  )  ) 

1*«I*W(T,HJH1 ) 

415  T*H7N(  T  >«-THULT*W(  I,NJM1  ) 

TPBN«TMUi  T*.S*(D7r(1)-»07C(1))*OYC(I«NJ) 


SP(T,NJM1  )b«P(I/M.IM1  )-TFRf* 

AN(t,NJ*1  )aP. 
art  TO  4?S 

41? 

4?*  f  rttJT  TK'tIF 

T  » 1 1 7  M  M  )»TAH7N(NIM1  ) 

TAII7U(MT  )cTAII7l.  (?> 

ATP  Ort  451  Ia?,NJM 
(>n  451  .|a?,pj*1 
A«(T,J 

451  AMO  ,J  )mrt. 

44P  Crt.-lTINIIF 
PCTMMN 

r 

CMAPTFA  5  S  s  5  VELOCITY  IJPOATTmC  5  5  5? 

r 

FMTPY  MrtOVtl 
Drt  1  S5 1 

Ilf  l<T  ,  J  >a|l(?,J  ) 
itn  ».i  >»n(ni»*i  t.\  i 
1  S  «l  1  frtijTTNUP 
art  3451 

W<1#J)»W(NXP1#J) 

M(  IJT  .i  ) 

54S1  CrtMTTNHF 
FI  OU'W«il. 

TArfF*nWafl. 

Ort  5o*1 

Ort  RAF.  1  .|»?,|1.IJ1 

FI  owg*FI.OWW4DFI.  fl». I  )*«<!». i)*AREMY(I,J) 
TAHFAOWaTAKeAPV»  +  AREA)(V(  I  ,  J  )  *  OFM  <  I  r  J  )  *PW  f  I  <■  J  ) 
*>*M  T rt « T  T M 1 1 F 

i>rt  3*A3  J*1,CJ 

g  (ijt  ,.i  )im(7>  j  ) 

54*3  rt(l“T  T  i4HF 

Ort  5f»°  I»1»MI 
ilfl»w.l  )»ll. 

JfT,.J.I)au. 

Vf  T«I<J  )■(!. 

V(I  ,1 )»P. 

5*0  f  rtMT  I  MlIF 
PFTHRN 
C 

CMAPTFP  A  h  6  6  A  o  PRFS3UPE  CORRECTION  t 

C. 

F»'TPY  MrtoP 
Ort  3M°  Ia1,NJ 

Ort  7«9  Jb1,n.I 

All  (  T  #  J  )  a() . 

3P9  A  D  (  T  ,  ,1  )  a|| . 

RFTI'RN 

f 

CMAOTFR  7  7  ?  7  7  7  7  TMEPMAL  FNEPRV  7  7 

r 

F  M  T  P  Y  MOOT 

ort  3*oa  i*7/i;iri 


on  1698  J«1/NJ 
*n(T,J  )■(}.(! 

.  3^98  )*0.0  .  . . 

r  — — — — — N-p  0  UN  B  A  B  Y 

on  1931  I *2 /NIK  1 

S!I(T/NJK1)*9U(I/NJM1)*MFLI'X*D7cM)*DXC(T/Nj)/CPW 

am(T/Nji»i  )«n. 

r— ..... POUND  APY-- ................. 

IK(TNPFX.NF.G)  no  TO  1931 

Sl'<Jf?)«Sll<T,?>-aFU!X*D7Cm*OXT(I,?)/CPw*<FLnwT-FLnwW>/FlOUT 

1*«UFT/  0»A*TMfTA) 

AS  (I  /  ?)*(•« 

1911  CONTINIIF 

S!'(?/3)»6PEAT*t;.0 
SPj  2 / 3 ) *«GRF  AT 
PFTHPN 
C 

CHAPTER  8  8  8  8  8  8  8  TIIKPUtEiiCF  K.F.  888888*8 

C 

FNTPV  HOOTE 
CPIt?5«Cpti**.?5 

r  s-  boundary  ...... — — - ..... .................  ....... 

on  8?n  1=2, *1*1 
I  F  <  T .PP.N? )  60  To  819 
*ui  YP«.?5*<ovc<i/?)*nvc<T-n  ,?>> 
oFNP*ot;rJ(i/7) 

S0PTKPS0»T(TF(I/2)) 

VOL=APFAXY {I / 2 ) *  D7  C (1 1 

6FNrOU*.5*<ABS(TAl'XS<T-M  )*U<I«1  /2  )  )♦  APS  (T MIX S  f  I  ) *11  <  I  / 2 )  ) 

1  ♦ABs  (T8ll7S<I)*W(T/2))+ABS(TA|iz«t(T)Au(I/2))) 

1  /YP 
J«? 

IIP».  S*  { II  (1*1  +  I,J>) 

IIS«.S*(»(I*1/J.1)AII(1/J»1  )  ) 
tiNM>.S*ni<I*1,J*1  I+0(I,J+1  )) 
ilP«llMK*uFK  <  I ,  .1*1  )*0P*<1.-VFN<I,J*1 ))  • 

DI'DYaOIM.IIS)/ (?.»YP) 
up».5*(W(I/J)aw(I/.I)) 

US».S*<W< 1,1-1  >*WfI,J-1>) 

W*'N«.5*<W<I,J*1  )*W(1„I  +  1  )> 

WNPWM1IAUFNO/J41  )  *UP»  (1  .-WFNd/J  +  l  )  ) 

OuOYafuN-WS ) / (?.*Y P) 

SI'<T,.n*Stl<!/J>-GFNfI/J>*VOI. 

RFHf  T/J  )»6EW<  I/.l  >-(»U«Y**?+DWdY**?)*VIS<I ,J  ) +PEI' C°ll 
S"(T/J  )»Sl*  (  I  /  J  )*fiFN<I,J)*VOl 
YP|  IISS(T)«OFNP*SOPTK  *CMI?5*YP/VISCnS 
TF  rvPLUSS(T).LF.II.pi)  GO  To  80? 

l»TTF8N»DFN(I/7)*rnil/  rMI'?S*SiiPTK  *At  OP  (  FLOfi*  yPlI'SS  (  T  )  ) 

1 / ( CAPPAAYP) 

«n  TO  803 

80?  rnrJTlMliF 

OTTF»"«OFN<  T/?)*CNII/  rHlt?S*S  ORTK*YPU'SS  C  T  )  /  YP 
am  cnuTiMiiF 

ill.  DT»Pa-CDT*CKII*DFN<I  ,2)  **2*TF  C  T  / ?  )  A V«L  / V T  S  (1/2) 

SP(T/?)«SP(T  /?)-()!  DTHP-DITEPHAVOL 
pn  to  a?n 


#19  frttiTU'.lF 

IF<tnI>FX.NE.P)  CO  TO  #20 
AS<T?2>»O.U 
#20  COIJTINIlF 

r— — — — — — — n-eowNoARv— 

.)«  #aP  Is?,NIM 
1 F(T80TH.F0.2)  co  to  #21 
IFfl.CT.NI)  fiP  TO  #39 
#21  YPB.25*<DYC<I'MMl>  +  DYeO'*1  #U.IMl  )  > 
r>FNP»f>FM(T,MJPl) 

SORTKsSORT  (  T  F  (  I  #  M  .1 H 1  )1 
>/OL»*RFAXY(T##Jf»1)»t>Zf(1) 

CFUfOos.5*  (AH?  (TAUXf  <T  +  1  )*U<I  +  1»N.IM1))+AB  S<T»U*N<H* 

i  "< i ,njni ) )+ap  s<taii7w( t  )*w<  r#n.iMi  >  >+ab# c t a i i z r-  ( i )* 

1  *'  (  T  » N J **1  )  )  1  /  YP 
-11 

ii''*.S*(M(M,J*1  )  ♦il  (I,. 1  +  11  ) 

,lCa.S*(H(T  +  1  ».l  )  +  lKl»J  >  ) 

ii#sr.s* <n<  i  +  i  /  j-i  >+o< t,./-i  n 

ll#a|ip*NF*  (I#J)+HSS*(1.-WFW<T#J)> 

l>MDY«(IIH-US)  /  (2.*YP) 

WP«.S*(W(I#J)+»fl#J>) 

UNs. 5* (  w  ( I  #  .1  +  1  )+WO»j*1  )  ) 

gS#*.S»(vi(i/j-11+u(l/.i-D) 

ws»wp*tJFN  a  ,j  >+uss*n  ,-wfw  n#j  >  > 

D"DY*(  JM«WS>/f?.*YP) 

SIKTf  J  )*SII(T*J)-wF|4(I/J>*VOl 

)afiEN(T,  J  }-(nUOV**2  +  OWOY*p2)*VTS(I#J  )+r-EWC0U 
SH(I.J)aSU<T*.l  J+f,FN(l,j)*VOl 
YPI  |lSf.i(T)*OcIJP*S<iPTX  +C*025*YP/VISC0S 
IF  (YPiHSN(I). IF. 11.63)  CO  TO  8*2 

DTTFK!*sPEN<I,#Jwn*CM'/  C#  U75  +  SORT#  *  Al  Or.  (  Fl  00  *  YPL II S*  (  I  )  1 
1  / ( f  APPAaYP) 

CO  To  82$ 

#2?  CONTINUE 

OTTF«M»|>FN<!,NJI*1  )*fPll/CHN2S*S0PTK#YPLll«N(n/YP 

#23  CONTINUE 

01  OTRMB-CDT  +  CPt'AUFNl  I/NJM1  )  •**?*TF  (I  ,N  J  Ml  )  *  VOL  /  V  T  S  (  1  »N  J  M 1  ) 
SP(T#*).|W1  )«SP(  J  /HJM1  )-0l  0TRI*-niTFPH*VOL 
CO  TO  84 () 

#39  .IP.11»./C-1 

SH(T,.lfin  )«CPFAT*TFP(T,1  ) 

S»(If JC#1 )»-6#EAT 
#40  CONTINUE 
#4S  1)0  PaA  Tb?,NIM 

DO  #<.6  l«?,«Jf'1 

A (  I  #  J 
ao(t  ,j )«n, 

#4#  CONTINOF 
RETURN 
C 

CHAPTFP  0  9  9  9  9  9  o  DISSIPATION  9  9  0  9  9  9  9 

C 

FNTPY  modfd 
CP|I7S«CPiip*.73 

DO  910  IbP.NIM 
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IFfT.PF.N?)  PC  TO  912 
911  Y°*.?5*(DYC(I*2)+0YC(T41*?) ) 

XF»naPMIl75/  <CAPPA*YPl 
VO|  «APFAXY(T,?)*07C(11 
Sii(I#?)sPBFAT*TFRI**TFf  I^2)**1.5*VOL 
SP(T,?}»-BHFAT*VOl 
PO  TO  91(1 
91?  fOHTJHUF 

I  f  (  TMOFX.NE.ll)  r. 0  TO  ®10 
AS<T«?)«I>.(> 

910  rOMTIWHF 

C————————-—h-00||WD»PY-— ————————— 

oo  q?o  Ts?/fin 
I F ( IH0TH.F0.2)  BO  TO  921 
TFCT.PT. Ml)  CO  TO  9?? 

9?  1  YP*.?5*fDYC(l  *N.IM1  )40YC(l4l,NJM1)> 

TFUPsCHl'TS/  (CAPPA«YP) 

V0(.*APFAXY(T*N.|M1  >*0ZM1  > 

Plt(1  #NJW1  )sRRFAT*TFPP  +  TF  >**1  ,5*VCL 

SP(T»NJf1 ) a-PP  f  AT  * VOL 
PO  TO  920 
9??  fOMTTNUF 
J«M1»JP-1 

S0{T,JPM1 )*PPFAT*F0P(T,1  ) 

SP(T*  JRl»i)»-CFF»T 
920  COwTINilF 
°25  oo  92A  Is?,MIM 

JO  9?*  Ja?,N.|Pl 

AO(T*.l)=0#n 

AO(Jf.|)«(|. 

0?A  fO.MTTfniF 
RFTPRN 
f 

rn»"TF»  111  in  111  in  1C  P  AO  i  I  OF  CHRVATURfi  1(1  10  If!  If  10 


r 

FWTP Y  HOoPaO 

C-— — - —  FPFCTFY  “APII  of  C'IRVaTUPF  of  POUNOAPIFS 
r—————s-onio'[>*Rv— ——————— 

1)0  IiiPii  1*1  #M 
.1  =  1 

inoo  i)Yi>Y  (  t  ,.n«i  ,/R* 

r— — — — f.'  »Puii»jf»AB  y— — — — — — — — — 


f)0  1 1  If  1  I*?»PI|..1 

1001  r>vDY(T*.l)*1./(.S«<PP(T,.l)4R»(T4.1,J))) 
l>Y|)Y(MI,rtJ)*0XtY(?,Nj1 
i)Yi)V(1  *w.i  >«rxDY  (mri  ) 

OO  1(110  .1*2,0.11*1 

r— ——W-P()lltJOAPY— -—  —————- 

i)Yi>y  (1  ,.i  )  =  oY(jx  (*'101 *  j  > 

C— ———F-POHODARy— ———————— —— 

»y»x  (nt  ».i  )»oynx  <  2*  j  ) 

1010  COOTTMIIF 

OYf.X  Cl  ,1  )*OYOY  (HIM  ,1  > 

0 Y 0 Y ( M  » 1 )*pydx (2*1 ) 

i) v 0 X  (  1  *f!J  )*OYPX  CMTH1  *W.|  ) 

0  v  0  X  (01  *  IJ  J  )  *  I)  Y  D  *  (  ?  »  M  J  1 
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PPTIIMN 

FF'O 


SHRPOlITTNF  PRTNT<TSTA»T,.ISTART,NI,NJ,TT,JT,X,Y, 
IPHI/HFaD) 

OTMFNSIOnPHT  (  IT  #  J  T  )  /  H  F  A  D  (A)#SToPF  (50) 

OTOFNSIOU  F(7)»F4(11) 

PATA  F / 4 H ( 1 H  . m M , An , , 4 H I  3 ,  »4M11I  ,4H10»  »4H7X# 
14HAA)  / 

DATA  F4/4H  II  ,4H  2T  ,4H  '  1  ,4M  41  ,4M  SI  ,4H  bT 
1  4H  7 1  « 4 H  OT  »4H  SI  »4M1QI  ,4M11I  / 

DATA  HI/HY/Ah  I  »  »  y  »  / 

P  °  I T  F  (A*ilUlHFAD 

JSKTPal 

JSKTPal 

TSTA*ISTART-1? 

1  rn  roriTif'tiF 

f  ST  AaT  STA  +  1 ? 

TFMDaISTA+11 

TFNDsNIN(I(N1#IFN0) 

F(4)aF4(IFNP-ISTA> 

WPJTF(yS#F)  MI#(I,TaISTA,IFNI>»JSFIP) 

JPrTF(o,117) 

PP  101  J.|*JSTAHT,N.|,JSKJP 
JaJSTART-fNJ-J  J 
DA  1?f1  IaJSTA,IF.Mn 
A*PMT(I/J) 

tf(arsia>.it.i.f-?u)  Aan.r 

'n  STOP  F  (  T  )  a  A 

ni  U»TTF  fft/1 13> , i  , (STORE (I ) /TalsTA/IFNOjISYlD) 


TFOFNo.l  T.F'DGO  TO  IPO 
?Pfl  CONTJPllF 
RBTI'RM 

II  fl  FPRP AT  (1  HP#  / // /?0 f ?H*«)  »7X/AaA,Tx*2P  /  / /  ) 

III  F0RPAT(1HP,AH  T  a  ,IT,11T1C#7X»*  Y  a  *> 

11?  FPRt*AT<SH  J) 

IIS  FORPATOh  »T3,1p1?F1G.?,C1PF7.S> 
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